Author: jonathan
Date: Wed Dec 17 03:37:51 2008
New Revision: 34018
Modified:
trunk/languages/perl6/src/pmc/perl6multisub.pmc
Log:
[rakudo] Make sure we give correct error message when multiple dispatch ties on
a bunch of candidates all with non-matching constraints.
Modified: trunk/languages/perl6/src/pmc/perl6multisub.pmc
==============================================================================
--- trunk/languages/perl6/src/pmc/perl6multisub.pmc (original)
+++ trunk/languages/perl6/src/pmc/perl6multisub.pmc Wed Dec 17 03:37:51 2008
@@ -562,6 +562,11 @@
possibles = constraint_free;
possibles_count = constraint_free_count;
}
+ else {
+ possibles_count = 0;
+ mem_sys_free(matching);
+ mem_sys_free(constraint_free);
+ }
}
/* Check is default trait if we still have multiple options. */
