[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 (file)
--- 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 $\ = '';