# New Ticket Created by Moritz Lenz
# Please include the string: [perl #121531]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=121531 >
This test from S04-phasers/pre-post.t fails on rakudo-moar, but passes
on the two other backends:
my $str;
try {
{
PRE { $str ~= '('; 0 }
PRE { $str ~= '*'; 1 }
ENTER { $str ~= '[' }
$str ~= 'x';
LEAVE { $str ~= ']' }
POST { $str ~= ')'; 1 }
}
}
is $str, '(', 'failing PRE runs nothing else';