diff options
| author | David Dyck <david.dyck@fluke.com> | 2001-05-24 17:03:04 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-26 13:19:05 +0000 |
| commit | 22c4a518db8a7c3e34c557402a6edb407a8f26b4 (patch) | |
| tree | 2987a808bc0fc1df300e45f7019314ea98575dad | |
| parent | 95fd33e1a0d6a8476baddd41f4252bac0400ae4e (diff) | |
| download | perl-22c4a518db8a7c3e34c557402a6edb407a8f26b4.tar.gz | |
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
| -rw-r--r-- | lib/perl5db.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 1e1b163b59..ab68bd5eab 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 { |