diff options
| -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 $\ = ''; |