diff options
author | Shlomi Fish <shlomif@cpan.org> | 2015-12-02 18:22:41 -0500 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2015-12-02 18:24:13 -0500 |
commit | 2305393164b3d13f11b4ce5297bb8a40499936b7 (patch) | |
tree | f69b695fedd46ba2e2307595ec6a66374ece940a /lib/perl5db.pl | |
parent | a5dcdb15638daba5e4108858afe9050e09807041 (diff) | |
download | perl-2305393164b3d13f11b4ce5297bb8a40499936b7.tar.gz |
Ensure 'q' works in debugger with RemotePort.
Patch submitted by Shlomi Fish.
For: RT #126735
Diffstat (limited to 'lib/perl5db.pl')
-rw-r--r-- | lib/perl5db.pl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 0d240ae7c1..68f7e50f4a 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -528,7 +528,7 @@ BEGIN { # Debugger for Perl 5.00x; perl5db.pl patch level: use vars qw($VERSION $header); -$VERSION = '1.49_01'; +$VERSION = '1.49_02'; $header = "perl5db.pl version $VERSION"; @@ -2490,7 +2490,11 @@ EOP # 'm' is method. # 'v' is the value (i.e: method name or subroutine ref). # 's' is subroutine. -my %cmd_lookup = +my %cmd_lookup; + +BEGIN +{ + %cmd_lookup = ( '-' => { t => 'm', v => '_handle_dash_command', }, '.' => { t => 's', v => \&_DB__handle_dot_command, }, @@ -2523,6 +2527,7 @@ my %cmd_lookup = (map { $_ => {t => 'm', v => '_handle_cmd_wrapper_commands' }, } qw(a A b B e E h i l L M o O v w W)), ); +}; sub DB { |