[svn:parrot] r34131 - trunk/lib/Parrot/Pmc2c

[chromatic]

On Saturday 20 December 2008 00:04:47 petdance at cvs.perl.org wrote:

> Modified:
>    trunk/lib/Parrot/Pmc2c/Parser.pm
>
> Log:
> no recompiling regexes in while loops
>
> Modified: trunk/lib/Parrot/Pmc2c/Parser.pm
> ===========================================================================
>=== --- trunk/lib/Parrot/Pmc2c/Parser.pm	(original)
> +++ trunk/lib/Parrot/Pmc2c/Parser.pm	Sat Dec 20 00:04:46 2008
> @@ -130,7 +130,7 @@
>      (/\*.*?\*/)?
>      }sx;
>
> -    while ($pmcbody =~ s/($attr_re)//) {
> +    while ($pmcbody =~ s/($attr_re)//o) {

Hm, I'm not sure this matters very much; $attr_re is a qr// already.

-- c