diff --git a/src/Perl6/Metamodel/RoleToRoleApplier.pm b/src/Perl6/Metamodel/RoleToRoleApplier.pm index 65a2c7b72c0..2db99ca5231 100644 --- a/src/Perl6/Metamodel/RoleToRoleApplier.pm +++ b/src/Perl6/Metamodel/RoleToRoleApplier.pm @@ -72,7 +72,7 @@ my class RoleToRoleApplier { 1; } # No methods in the target role. If only one, it's easy... - if +@add_meths == 1 || all_the_same(add_meths) { + if +@add_meths == 1 || all_the_same(@add_meths) { $target.HOW.add_method($target, $name, @add_meths[0]); } else {