patch to fix: [ID 20010524.004] perl5db.pl version 1.12 doesn't stop on breakpoints

Message-ID: <Pine.LNX.4.33.0105242354030.17331-100000@dd.tc.fluke.com>

p4raw-id: //depot/perl@10217

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 1e1b163..ab68bd5 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1630,7 +1630,8 @@ sub break_on_line {
   my $pl = '';
   die "Line $i$filename_error not breakable.\n" if $dbline[$i] == 0;
   $had_breakpoints{$filename} |= 1;
-  $dbline{$i} =~ s/^[^\0]*/$cond/ if $dbline{$i};
+  if ($dbline{$i}) { $dbline{$i} =~ s/^[^\0]*/$cond/; }
+  else { $dbline{$i} = $cond; }
 }
 
 sub cmd_b_line {