diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-03-14 11:39:29 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-15 16:12:25 +0000 |
| commit | 2370a880c0e9f1ab366c20ffd2ba3d9c24f68acc (patch) | |
| tree | 8206777443a7f7db7513d8f604bbfe8849c79474 /lib | |
| parent | 9b30a5d2755d1fa69f991b925e88a64f3bbd7529 (diff) | |
| download | perl-2370a880c0e9f1ab366c20ffd2ba3d9c24f68acc.tar.gz | |
[BUG & PATCH] can't quit the debugger after run completes
Message-ID: <20020314213929.GA2912@blackrider>
p4raw-id: //depot/perl@15240
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 711755eed9..e1ee5917e1 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 $\ = ''; |