fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-04-05 09:11:03 +00:00
Code Issues Projects Releases Wiki Activity

redis.tcl: no longer leave unread replies if an error happens during a MULTI/EXEC block.

Browse Source
This commit is contained in:
antirez 2012-04-06 23:52:28 +02:00
parent 618a922957
commit ff79ab71db
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/support/redis.tcl
View File

@ -142,9 +142,15 @@ proc ::redis::redis_multi_bulk_read fd {
set count [redis_read_line $fd] set count [redis_read_line $fd]
if {$count == -1} return {} if {$count == -1} return {}
set l {} set l {}
set err {}
for {set i 0} {$i < $count} {incr i} { for {set i 0} {$i < $count} {incr i} {
lappend l [redis_read_reply $fd] if {[catch {
lappend l [redis_read_reply $fd]
} e] && $err eq {}} {
set err $e
}
} }
if {$err ne {}} {return -code error $err}
return $l return $l
} }