From: Michael G. Schwern <schwern@pobox.com>
Date: Thu, 14 Mar 2002 16:39:29 +0000 (-0500)
Subject: [BUG & PATCH] can't quit the debugger after run completes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2370a880c0e9f1ab366c20ffd2ba3d9c24f68acc;p=p5sagit%2Fp5-mst-13.2.git

[BUG & PATCH] can't quit the debugger after run completes
Message-ID: <20020314213929.GA2912@blackrider>

p4raw-id: //depot/perl@15240
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 711755e..e1ee591 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -794,7 +794,11 @@ EOP
 						next CMD;
 					} 
 		    }
-        $cmd =~ /^q$/ && ($fall_off_end = 1) && clean_ENV() && exit $?;
+                    $cmd =~ /^q$/ && do {
+                        $fall_off_end = 1;
+                        clean_ENV();
+                        exit $?;
+                    };
 		    $cmd =~ /^t$/ && do {
 			$trace ^= 1;
 			local $\ = '';