From 7019653802c5a3ebbe514d94777bca898d9a56c1 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sat, 13 Oct 2012 20:25:28 +0200
Subject: Extract _handle_cmd_wrapper_commands.

---
 lib/perl5db.pl | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

(limited to 'lib')

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:
-- 
cgit v1.2.1