Minor fixes

Author: iph0

lib/AnyEvent/RipeRedis.pm

@@ -916,7 +916,7 @@ sub _disconnect {
   $self->_abort($err);
 
   if ( $was_connected && defined $self->{on_disconnect} ) {
-    $self->{on_disconnect}->($self);
+    $self->{on_disconnect}->();
   }
 
   return;

t/04-commands.t

@@ -740,7 +740,7 @@ sub t_discard {
 sub t_execute {
   my $redis = shift;
 
-  can_ok( $REDIS, 'execute' );
+  can_ok( $redis, 'execute' );
 
   my $t_reply;