This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
added patch, tweaked per Ilya's suggestion
authorM. J. T. Guy <mjtg@cus.cam.ac.uk>
Wed, 8 Jul 1998 13:34:42 +0000 (14:34 +0100)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 9 Jul 1998 01:45:16 +0000 (01:45 +0000)
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

index 3ca0adc..a2b9926 100644 (file)
@@ -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/;
        }
     }