From: Mike Guy <mjtg@cam.ac.uk>
Date: Tue, 15 Aug 2000 16:55:59 +0000 (+0100)
Subject: debugger exit code should reflect user exit code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5318f4e72ea099968c73fd9ca776a55ce6d85136;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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; };