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