# New Ticket Created by raiph
# Please include the string: [perl #126721]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=126721 >
What I did
==========
$/ := "Uhoh";
put "Foo".subst: /Foo/, -> $/ {$/};
put "Foo".subst: /Foo/, -> $/ {$/} for 1;
put "Foo".subst: /Foo/, {$/};
put "Foo".subst: /Foo/, {$/} for 1;
What I expected
===============
FooFooFooFoo
What I got
==========
FooFooUhohUhoh
Is it a bug?
============
The way it's working now might make sense from a purist pov but not a pragmatic
or Perlish one imo. I'm hoping this will be obvious to whoever reads this so
I'll defer giving a detailed rationale for calling this a bug in the
anticipation that it won't be necessary. :)
Does it look like any other bug?
================================
Yes, at least the previously resolved s/// bug #118705.
See also http://www.perlmonks.org/?node_id=1148378
