Fix multi sort so Blob ~~ String is true.

Fixes the ambiguity issues that kept any of the Blob operators from being reached.
rakudo · Jul 21, 2013 · 763cfe4 · 763cfe4
1 parent cb96e37
commit 763cfe4
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -1921,8 +1921,14 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
                         }
 
                         # Construct role meta-object with group.
+                        sub needs_args($s) {
+                            return 0 if !$s;
+                            my @params := $s[0].ast<parameters>;
+                            return 0 if nqp::elems(@params) == 0;
+                            return nqp::elems(@params) > 1 || !@params[0]<optional>;
+                        }
                         $*PACKAGE := $*W.pkg_create_mo($/, %*HOW{$*PKGDECL}, :name($longname.name()),
-                            :repr($*REPR), :group($group), :signatured($<signature> ?? 1 !! 0));
+                            :repr($*REPR), :group($group), :signatured(needs_args($<signature>)));
                     }
                 }
                 else {