debug reloading selfloaded stuff

Message-ID: <20010723181320.A14005@math.ohio-state.edu>

p4raw-id: //depot/perl@11457

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 1c20f57..ab9c48d 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1226,7 +1226,7 @@ EOP
                          *dbline = $main::{'_<' . $file};
                          next unless %dbline or $postponed_file{$file};
                          (push @hard, $file), next 
-                           if $file =~ /^\(eval \d+\)$/;
+                           if $file =~ /^\(\w*eval/;
                          my @add;
                          @add = %{$postponed_file{$file}}
                            if $postponed_file{$file};