From f41f30cfa10bebb4c8cf186444edce3f3f1826ca Mon Sep 17 00:00:00 2001
From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 23 Jul 2001 14:13:20 -0400
Subject: debug reloading selfloaded stuff Message-ID:
 <20010723181320.A14005@math.ohio-state.edu>

p4raw-id: //depot/perl@11457
---
 lib/perl5db.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 1c20f576d4..ab9c48da60 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};
-- 
cgit v1.2.1