Change 15240 by jhi@alpha on 2002/03/15 16:12:25
Subject: [BUG & PATCH] can't quit the debugger after run completes
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Thu, 14 Mar 2002 16:39:29 -0500
Message-ID: <20020314213929.GA2912@blackrider>
Affected files ...
.... //depot/perl/lib/perl5db.pl#79 edit
Differences ...
==== //depot/perl/lib/perl5db.pl#79 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl.~1~ Fri Mar 15 09:15:07 2002
+++ perl/lib/perl5db.pl Fri Mar 15 09:15:07 2002
@@ -794,7 +794,11 @@
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 $\ = '';
End of Patch.
