From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 23 Jul 2001 18:13:20 +0000 (-0400)
Subject: debug reloading selfloaded stuff
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f41f30cfa10bebb4c8cf186444edce3f3f1826ca;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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};