From: David Dyck <david.dyck@fluke.com>
Date: Fri, 25 May 2001 00:03:04 +0000 (-0700)
Subject: patch to fix: [ID 20010524.004] perl5db.pl version 1.12  doesn't stop on breakpoints
X-Git-Tag: accepted/trunk/20130322.191538~31852
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=22c4a518db8a7c3e34c557402a6edb407a8f26b4;p=platform%2Fupstream%2Fperl.git

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
--- 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 {