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

Re: regexp iteration limits

Thread Previous | Thread Next
From:
David Nicol
Date:
February 11, 2009 08:17
Subject:
Re: regexp iteration limits
Message ID:
934f64a20902110817r7085493drac016376dc4265a2@mail.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
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