From: M. J. T. Guy <mjtg@cus.cam.ac.uk>
Date: Wed, 8 Jul 1998 13:34:42 +0000 (+0100)
Subject: added patch, tweaked per Ilya's suggestion
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f52141186ba65ecaa67d62badb4a78b27920065;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 3ca0adc..a2b9926 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/;
 	}
     }