confess command and result

[perl-Redis.git] / lib / Redis.pm

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 7c8bf23..a46648c 100644 (file)
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -126,7 +126,7 @@ sub AUTOLOAD {
        }
 
        if ( $type eq '-' ) {
-               confess $result;
+               confess "[$command] $result";
        } elsif ( $type eq '+' ) {
                return $result;
        } elsif ( $type eq '$' ) {