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"' okThread Previous | Thread Next