guard infix:<but> against zero-arg calls on the RHS

closes RT #73990
rakudo · Aug 7, 2012 · 34e8d4d · 34e8d4d
1 parent 78c5c17
commit 34e8d4d
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -4085,9 +4085,8 @@ class Perl6::Actions is HLL::Actions {
                 }
             }
             else {
-                if $rhs[0].has_compile_time_value && +@($rhs) == 2 {
-                    $past.push($rhs[0]);
-                    $rhs[1].named('value');
+                if +@($rhs) && $rhs[0].has_compile_time_value && +@($rhs) == 2 {
+                    $past.push($rhs[0]); $rhs[1].named('value');
                     $past.push($rhs[1]);
                 }
                 else {