From: Duke Leto Date: Thu, 4 Jun 2009 23:11:42 +0000 (-0700) Subject: Fix my comment about DB::sub and make it DB::DB X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=422c59bf485ce57586a2a1e15602d42cac4d2612;p=p5sagit%2Fp5-mst-13.2.git Fix my comment about DB::sub and make it DB::DB --- diff --git a/lib/perl5db.pl b/lib/perl5db.pl index e7ec200..03ef2a2 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; };