confess command and result

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/Redis@64 447b33ff-793d-4489-8442-9bea7d161be5

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 '$' ) {