Fix forgotten 'unless' tripped by 05a5ca4b (introduced in c863e102)
Peter Rabbitson [Wed, 20 May 2015 19:02:47 +0000 (21:02 +0200)]
Why was this never detected? Because the deparse differs *only* on 5.10.[01]
IFF compiled without -DDebugging. I hate everything

t/resultset/rowparser_internals.t

index 5818248..9d38e90 100644 (file)
@@ -871,9 +871,10 @@ is_same_src (
       ( $collapse_idx[0]{$cur_row_ids{3}} //= $_[0][$result_pos++] = [] ),
 
       ( ( ! defined $cur_row_data->[0] ) ? $collapse_idx[0]{$cur_row_ids{3}}[1]{"books"} = [] : do {
+        ( ! $collapse_idx[1]{$cur_row_ids{0}} )
+          and
         push @{$collapse_idx[0]{$cur_row_ids{3}}[1]{books}},
           $collapse_idx[1]{$cur_row_ids{0}} = [ { owner => $cur_row_data->[1], title => $cur_row_data->[0] } ]
-        unless $collapse_idx[1]{$cur_row_ids{0}}
       } ),
     }