diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-15 17:55:59 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-15 16:29:22 +0000 |
| commit | 5318f4e72ea099968c73fd9ca776a55ce6d85136 (patch) | |
| tree | 66fdd905d49ff5271e03ccf5646d90aa5857982e /lib/perl5db.pl | |
| parent | ceab000c1ddc4b7f7b83a2b11f3801fb649efb29 (diff) | |
| download | perl-5318f4e72ea099968c73fd9ca776a55ce6d85136.tar.gz | |
debugger exit code should reflect user exit code
Message-Id: <E13Oj4J-0005FS-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6637
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index c2ebca1192..586cfd8fd5 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; }; |