Space-delimited commands support. Such as 'DEBUG OBJECT'

friedo · Apr 16, 2014 · 5ebd10e · 5ebd10e
1 parent 1d27a36
commit 5ebd10e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Redis/Client/Role/URP.pm b/lib/Redis/Client/Role/URP.pm
@@ -32,7 +32,9 @@ sub send_command {
     my ( $cmd, @args ) = @_;
 
     my $sock = $self->_sock;
-    my $cmd_block = $self->_build_urp( $cmd, @args );
+    my @cmd = ();
+    ($cmd =~ /\s/) ? (@cmd = split(/\s/, $cmd)) : (@cmd = ($cmd));
+    my $cmd_block = $self->_build_urp( @cmd, @args );
 
     $sock->send( $cmd_block );