Hopefully regain 5.8 compatibility

tsee · Jun 22, 2012 · a2852b3 · a2852b3
1 parent a4927fa
commit a2852b3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/t/320cumulate.t b/t/320cumulate.t
@@ -192,7 +192,8 @@ sub cumulate {
   for my $i ( 0 .. $#$coord ) {
     my $adjacent = [ @$coord ];
     next if --$adjacent->[$i] < 0;
-    $sum += lookup($out, $adjacent) // cumulate($in, $out, $adjacent);
+    my $l = lookup($out, $adjacent);
+    $sum += defined($l) ? $l : cumulate($in, $out, $adjacent);
   }
   # update the output cumulation matrix
   assign($sum, $out, $coord);