# New Ticket Created by  Elizabeth Mattijsen 
# Please include the string:  [perl #130980]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=130980 >


$ 6 'my $a = 0; ($a++,) Zxx 42; say $a’
0

$ 6 'my $a = 0; ($a++,) Xxx 42; say $a’
0

Before https://github.com/rakudo/rakudo/commit/1754dc5f7e , this would have 
yielded 42 in both cases.  However, this was a side-effect (pun intended) of 
thunk xx 42 being eager internally.  Since this commit, it is no longer, and 
this case the inner thunk does not get called when in a sink context.

This *could* be a bug, but I’m not sure.  Since the commit made 4 spectests 
that assume the old behaviour fail, it seemed wise to make a ticket before 
fudging the tests.

Please close this bug report if it’s not a bug, and remove/adapt the associated 
tests.

Reply via email to