# New Ticket Created by Justin DeVuyst
# Please include the string: [perl #126761]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=126761 >
#OK
[jdv@wieldy ~]$ perl6 -e 'sub infix:<o1> ($a, $b) is export { say 1 };
sub infix:<o2> ($a, $b) is tighter(&infix:<o1>) is export { say 2 }; 1
o1 1 o2 1; say &[o1].prec; say &[o2].prec;'
2
1
prec => t=
prec => t@=
[jdv@wieldy ~]$
#NOT OK
[jdv@wieldy ~]$ perl6 -e 'module m { sub infix:<o1> ($a, $b) is export
{ say 1 }; sub infix:<o2> ($a, $b) is tighter(&infix:<o1>) is export {
say 2 }; }; import m; 1 o1 1 o2 1; say &[o1].prec; say &[o2].prec;'
1
2
prec => t=
prec => t=
[jdv@wieldy ~]$
