Added error code E_NOT_BUSY

Author: iph0

lib/AnyEvent/RipeRedis.pm

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use base qw( Exporter );
 
-our $VERSION = '0.36';
+our $VERSION = '0.37_01';
 
 use AnyEvent::RipeRedis::Error;
 
@@ -15,7 +15,7 @@ use Scalar::Util qw( looks_like_number weaken );
 use Digest::SHA qw( sha1_hex );
 use Carp qw( croak );
 
-our %ERROR_CODES;
+my %ERROR_CODES;
 
 BEGIN {
   %ERROR_CODES = %AnyEvent::RipeRedis::Error::ERROR_CODES;
@@ -90,6 +90,7 @@ my %ERR_PREFS_MAP = (
   ASK         => E_ASK,
   MOVED       => E_MOVED,
   CLUSTERDOWN => E_CLUSTER_DOWN,
+  NOTBUSY     => E_NOT_BUSY,
 );
 
 my %EVAL_CACHE;

lib/AnyEvent/RipeRedis/Error.pm

@@ -4,7 +4,7 @@ use 5.008000;
 use strict;
 use warnings;
 
-our $VERSION = '0.36';
+our $VERSION = '0.37_01';
 
 our %ERROR_CODES = (
   E_CANT_CONN                  => 1,
@@ -32,6 +32,7 @@ our %ERROR_CODES = (
   E_ASK                        => 25,
   E_MOVED                      => 26,
   E_CLUSTER_DOWN               => 27,
+  E_NOT_BUSY                   => 28,
 );
 
 

t/01-error-codes.t

@@ -2,7 +2,7 @@ use 5.008000;
 use strict;
 use warnings;
 
-use Test::More tests => 25;
+use Test::More tests => 26;
 use AnyEvent::RipeRedis qw( :err_codes );
 
 is( E_CANT_CONN, 1, 'E_CANT_CONN' );
@@ -30,3 +30,4 @@ is( E_TRY_AGAIN, 24, 'E_TRY_AGAIN' );
 is( E_ASK, 25, 'E_ASK' );
 is( E_MOVED, 26, 'E_MOVED' );
 is( E_CLUSTER_DOWN, 27, 'E_CLUSTER_DOWN' );
+is( E_NOT_BUSY, 28, 'E_NOT_BUSY' );