Look harder for existing *%_ or | pre-autogen.

Fixes RT #125513.
rakudo · Jul 9, 2015 · 341f6e5 · 341f6e5
1 parent a51ac08
commit 341f6e5
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -1544,7 +1544,7 @@ class Perl6::World is HLL::World {
                     is_multi_invocant => 1
                 ));
             }
-            unless @params[+@params - 1]<named_slurpy> || @params[+@params - 1]<is_capture> {
+            unless has_named_slurpy_or_capture(@params) {
                 unless nqp::can($*PACKAGE.HOW, 'hidden') && $*PACKAGE.HOW.hidden($*PACKAGE) {
                     @params.push(hash(
                         variable_name => '%_',
@@ -1641,6 +1641,13 @@ class Perl6::World is HLL::World {
         self.create_signature(%signature_info)
     }
 
+    sub has_named_slurpy_or_capture(@params) {
+        for @params {
+            return 1 if $_<named_slurpy> || $_<is_capture>;
+        }
+        0
+    }
+
     # Creates a signature object from a set of parameters.
     method create_signature(%signature_info) {
         # Create signature object now.