X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/d33278d1601bda80987a6f4ad4b2319fb2f7e972..8c096b16a1ab942413020c91138398d8a23bd64e:/redis.tcl

diff --git a/redis.tcl b/redis.tcl
index 233e2c9f..0f4e401f 100644
--- a/redis.tcl
+++ b/redis.tcl
@@ -25,6 +25,7 @@
 #
 # vwait forever
 
+package require Tcl 8.5
 package provide redis 0.1
 
 namespace eval redis {}
@@ -39,14 +40,14 @@ array set ::redis::multibulkarg {}
 
 # Flag commands requiring last argument as a bulk write operation
 foreach redis_bulk_cmd {
-    set setnx rpush lpush lset lrem sadd srem sismember echo getset smove zadd zrem zscore zincrby append zrank zrevrank hget hdel hexists
+    set setnx rpush lpush lset lrem sadd srem sismember echo getset smove zadd zrem zscore zincrby append zrank zrevrank hget hdel hexists setex
 } {
     set ::redis::bulkarg($redis_bulk_cmd) {}
 }
 
 # Flag commands requiring last argument as a bulk write operation
 foreach redis_multibulk_cmd {
-    mset msetnx hset hmset
+    mset msetnx hset hsetnx hmset hmget
 } {
     set ::redis::multibulkarg($redis_multibulk_cmd) {}
 }