debugger exit code should reflect user exit code

Message-Id: <E13Oj4J-0005FS-00@libra.cus.cam.ac.uk>

p4raw-id: //depot/perl@6637

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index c2ebca1..586cfd8 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -617,7 +617,7 @@ EOP
                            next CMD;
                        } 
                    }
-                   $cmd =~ /^q$/ && ($exiting = 1) && exit 0;
+                   $cmd =~ /^q$/ && ($exiting = 1) && exit $?;
                    $cmd =~ /^h$/ && do {
                        print_help($help);
                        next CMD; };