diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 3ca0adc3d5..a2b9926cc1 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -382,7 +382,7 @@ sub DB { if ($stop eq '1') { $signal |= 1; } elsif ($stop) { - $evalarg = "\$DB::signal |= do {$stop;}"; &eval; + $evalarg = "\$DB::signal |= 1 if do {$stop}"; &eval; $dbline{$line} =~ s/;9($|\0)/$1/; } } |