[perl #66596] [BUG] $str.subst causes "Lexical '$/' not found" error in multi subs

[jn...@jnthn.net via RT]

On Mon Jun 15 04:17:36 2009, moritz wrote:
> On Mon Jun 15 04:01:34 2009, moritz wrote:
> > Hi,
> > 
> > multi to-json(Str $d) {
> >     $d.trans(['"'] => ['\"']).subst(/<-[\c0..\c127]>/, { "a" }, :g)
> > }
> > 
> > say to-json("möp");
> 
> Actually the .trans call is not necessary, a simple .subst also fails.
> 
> Now tested in t/spec/integration/real-strings.t
> 
Fixed the bug in git 201ffc2 and unfudged the test.

Thanks,

Jonathan