Re: [PATCH] Re: [perl #20444] regex not evaluated in constant ?:

On Aug 1, 2010, at 12:21 PM, Father Chrysostomos wrote:

> This patch solves the problem by marking match and subst ops as OPf_SPECIAL during constant folding, so the =~ operator can tell not to take possession of it.

With that patch:

$ ./perl -Ilib -MO=Deparse -e'"foo" =~ (1?/foo/:/bar/)'
'foo' =~ /foo/;
-e syntax OK

So the Deparse output no longer matches what perl does. With the patch attached to this message applied after that one:

$ ./perl -Ilib -MO=Deparse -e'"foo" =~ (1?/foo/:/bar/)'
'foo' =~ ($_ =~ /foo/);
-e syntax OK

• [PATCH] Re: [perl #20444] regex not evaluated in constant ?: by Father Chrysostomos
• Re: [PATCH] Re: [perl #20444] regex not evaluated in constant ?: by Father Chrysostomos