From 3f52141186ba65ecaa67d62badb4a78b27920065 Mon Sep 17 00:00:00 2001
From: "M. J. T. Guy" <mjtg@cus.cam.ac.uk>
Date: Wed, 8 Jul 1998 14:34:42 +0100
Subject: [PATCH] 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
---
 lib/perl5db.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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/;
 	}
     }
-- 
2.7.4