diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 0a0b4407a5..9042ab0d9c 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -2824,10 +2824,7 @@ deal with them instead of processing them in-line. # All of these commands were remapped in perl 5.8.0; # we send them off to the secondary dispatcher (see below). - if (my ($cmd_letter, $my_arg) = $cmd =~ /\A([aAbBeEhilLMoOPvwW]\b|[<>\{]{1,2})\s*(.*)/so) { - cmd_wrapper( $cmd_letter, $my_arg, $line ); - next CMD; - } + $obj->_handle_cmd_wrapper_commands; =head4 C<y> - List lexicals in higher scope @@ -3945,6 +3942,18 @@ sub _handle_q_command { return; } +sub _handle_cmd_wrapper_commands { + my $self = shift; + + # All of these commands were remapped in perl 5.8.0; + # we send them off to the secondary dispatcher (see below). + if (my ($cmd_letter, $my_arg) = $DB::cmd =~ /\A([aAbBeEhilLMoOPvwW]\b|[<>\{]{1,2})\s*(.*)/so) { + DB::cmd_wrapper( $cmd_letter, $my_arg, $line ); + next CMD; + } + + return; +} package DB; # The following code may be executed now: |