From 4f81a9bb14918836809b9aac316e22e22dd2d2bc Mon Sep 17 00:00:00 2001
From: Pedro Melo <melo@simplicidade.org>
Date: Sat, 7 Aug 2010 12:49:08 +0100
Subject: [PATCH] Fix: __is_valid_command() must deal with both upper and
 lower-case cmds

Signed-off-by: Pedro Melo <melo@simplicidade.org>
---
 lib/Redis.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 4306153..3da5f28 100644
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -128,7 +128,7 @@ sub __is_valid_command {
   my ($self, $cmd) = @_;
 
   return unless $self->{is_subscriber};
-  return if $cmd =~ /^P?(UN)?SUBSCRIBE$/;
+  return if $cmd =~ /^P?(UN)?SUBSCRIBE$/i;
   confess("Cannot use command '$cmd' while in SUBSCRIBE mode, ");
 }
 
-- 
2.20.1