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 (file)
--- 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/;
        }
     }