diff options
| author | Duke Leto <jonathan@leto.net> | 2009-06-04 16:11:42 -0700 |
|---|---|---|
| committer | Duke Leto <jonathan@leto.net> | 2009-06-04 16:11:42 -0700 |
| commit | 422c59bf485ce57586a2a1e15602d42cac4d2612 (patch) | |
| tree | 8dc42a549eaa4e63e53d179a1110f14162e9f898 | |
| parent | b468dcb6f9226d3227926224976100d835ba9dda (diff) | |
| download | perl-422c59bf485ce57586a2a1e15602d42cac4d2612.tar.gz | |
Fix my comment about DB::sub and make it DB::DB
| -rw-r--r-- | lib/perl5db.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index e7ec200234..03ef2a2c6b 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -1056,7 +1056,7 @@ warn( # Do not ;-) ) if 0; -# without threads, $filename is not defined until DB::sub is called +# without threads, $filename is not defined until DB::DB is called foreach my $k (keys (%INC)) { &share(\$main::{'_<'.$filename}) if defined $filename; }; |