zrevrange sorts equal-range values by reverse lexical order

jlavallee · Feb 4, 2017 · 2c499c0 · 2c499c0
1 parent d801253
commit 2c499c0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Test/Mock/Redis.pm b/lib/Test/Mock/Redis.pm
@@ -1045,7 +1045,7 @@ sub zrevrange {
 
     return map { $withscores ? ( $_, $self->zscore($key, $_) ) : $_ }
                ( map { $_->[0] }
-                     sort { $b->[1] <=> $a->[1] }
+                     sort { $b->[1] <=> $a->[1] || $b->[0] cmp $a->[0] }
                          map { [ $_, $self->_stash->{$key}->{$_} ] }
                              keys %{ $self->_stash->{$key} }
                )[$start..$stop]