check for "1" to mean truth in method can_meta

rakudo · Apr 10, 2015 · 0b20921 · 0b20921
1 parent 5a38b21
commit 0b20921
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -3910,7 +3910,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     proto token prefix_postfix_meta_operator { <...> }
 
     method can_meta($op, $meta, $reason = "fiddly") {
-        if $op<OPER><O>{$reason} {
+        if nqp::eqat($op<OPER><O>{$reason}, '1', 0) {
             self.typed_panic: "X::Syntax::Can'tMeta", :$meta, operator => ~$op<OPER><sym>, dba => ~$op<OPER><O><dba>, reason => "too $reason";
         }
         self;