From 7dcdd281f529dea2389509f90b101c0471f7f2bd Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Tue, 20 Mar 2012 17:53:47 +0100
Subject: [PATCH] DEBUG should not be flagged as w otherwise we can not call
 DEBUG DIGEST and other commands against read only slaves.

---
 src/redis.c             | 2 +-
 tests/support/redis.tcl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/redis.c b/src/redis.c
index 737613d8..2558f66a 100644
--- a/src/redis.c
+++ b/src/redis.c
@@ -223,7 +223,7 @@ struct redisCommand redisCommandTable[] = {
     {"pttl",pttlCommand,2,"r",0,NULL,1,1,1,0,0},
     {"persist",persistCommand,2,"w",0,NULL,1,1,1,0,0},
     {"slaveof",slaveofCommand,3,"aws",0,NULL,0,0,0,0,0},
-    {"debug",debugCommand,-2,"aws",0,NULL,0,0,0,0,0},
+    {"debug",debugCommand,-2,"as",0,NULL,0,0,0,0,0},
     {"config",configCommand,-2,"ar",0,NULL,0,0,0,0,0},
     {"subscribe",subscribeCommand,-2,"rps",0,NULL,0,0,0,0,0},
     {"unsubscribe",unsubscribeCommand,-1,"rps",0,NULL,0,0,0,0,0},
diff --git a/tests/support/redis.tcl b/tests/support/redis.tcl
index 4f8ac485..ca6cf34b 100644
--- a/tests/support/redis.tcl
+++ b/tests/support/redis.tcl
@@ -160,7 +160,7 @@ proc ::redis::redis_read_reply fd {
         - {return -code error [redis_read_line $fd]}
         $ {redis_bulk_read $fd}
         * {redis_multi_bulk_read $fd}
-        default {return -code error "Bad protocol, $type as reply type byte"}
+        default {return -code error "Bad protocol, '$type' as reply type byte"}
     }
 }
 
-- 
2.45.2