Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
ff79ab71
Commit
ff79ab71
authored
Apr 06, 2012
by
antirez
Browse files
redis.tcl: no longer leave unread replies if an error happens during a MULTI/EXEC block.
parent
618a9229
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/support/redis.tcl
View file @
ff79ab71
...
...
@@ -142,9 +142,15 @@ proc ::redis::redis_multi_bulk_read fd {
set count
[
redis_read_line $fd
]
if
{
$count
== -1
}
return
{}
set l
{}
set err
{}
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
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment