diff options
| author | M. J. T. Guy <mjtg@cus.cam.ac.uk> | 1998-07-08 14:34:42 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-09 01:45:16 +0000 |
| commit | 3f52141186ba65ecaa67d62badb4a78b27920065 (patch) | |
| tree | 54635d193d009aab39d6ff52297840b174d2cef9 /lib | |
| parent | 802004fa6d912731c22aedfc387948d61f015eb9 (diff) | |
| download | perl-3f52141186ba65ecaa67d62badb4a78b27920065.tar.gz | |
added patch, tweaked per Ilya's suggestion
Message-Id: <E0yttQo-0002aH-00@taurus.cus.cam.ac.uk>
Subject: [PATCH] perl5db.pl complains about non-integer condition
p4raw-id: //depot/perl@1390
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/; } } |