From 22c4a518db8a7c3e34c557402a6edb407a8f26b4 Mon Sep 17 00:00:00 2001
From: David Dyck <david.dyck@fluke.com>
Date: Thu, 24 May 2001 17:03:04 -0700
Subject: [PATCH] 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
---
 lib/perl5db.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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