develooper Front page | perl.perl5.porters | Postings from February 2009

Re: regexp iteration limits

Thread Previous | Thread Next
From:
demerphq
Date:
February 11, 2009 16:05
Subject:
Re: regexp iteration limits
Message ID:
9b18b3110902111604x575afcc9y38ea8199a42dcccd@mail.gmail.com
2009/2/11 David Nicol <davidnicol@gmail.com>:
> Does the following qualify as a "sane" workaround?  It is still
> clearly inferior to the limit going away.
>
>
>
> $ perl -lwe '$a="xyzt"x10000; utf8::upgrade($a);print $a =~
> /\A(?>[a-z])*\z/ ? "ok" : "bug"'
> bug
>
> $ perl -lwe '$a="xyzt"x10000; utf8::upgrade($a);print $a =~
> /\A(?>(?>[a-z])*)*\z/ ? "ok" : "bug"'
> ok
>

Just out of idle curiosity why are you upgrading the strings?

Yves



-- 
perl -Mre=debug -e "/just|another|perl|hacker/"

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About