fix caddr fallback test

$0 is always true because (<[ad]>*) always matches, needs $0 ne ''
Raku · Mar 15, 2014 · b13f601 · b13f601
1 parent 3182fbd
commit b13f601
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/integration/advent2013-day09.t b/integration/advent2013-day09.t
@@ -100,7 +100,7 @@ Pair.^add_fallback(
         -> $p {
             $name ~~ /^c(<[ad]>*)(<[ad]>)r$/;        # split out last 'a' or 'd'
             my $r = $1 eq 'a' ?? $p.key !! $p.value; # choose key or value
-            $0 ?? $r."c{$0}r"() !! $r;               # maybe recurse
+            $0 ne '' ?? $r."c{$0}r"() !! $r;               # maybe recurse
         } 
     }
     );