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 (file)
--- 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;
 };