On Tue, Oct 30, 2001 at 05:55:51AM +0100, Andreas J. Koenig wrote: > It seems you're talking 12776. I didn't see Schwern's posting, but > something's wrng here. Unless it's lack of coffeine, I can see the > syntax error. > > t/run/kill_perl.....................# PROG: > $line = ('a' x 99999) . ";'"; . ('a' x 20000); > $line =~ m";(?:\s*\'(?:[^\\']|\\.)*\'\s*)";; > print "ok\n"; > # EXPECTED: > ok > # GOT: > syntax error at - line 1, near "; ." > Execution of - aborted due to compilation errors. > FAILED at test 88
Sorry, ran diff with brain in neutral. THIS is the proper patch. --- t/run/kill_perl.t 2001/10/30 03:31:32 1.1 +++ t/run/kill_perl.t 2001/10/30 03:59:10 @@ -809,3 +809,10 @@ EXPECT Can't modify constant item in read at - line 1, near "1)" Execution of - aborted due to compilation errors. +######## segfault on regex search fail of long string [ID 19990906.001] +$line = ('a' x 99999) . "'" . ('a' x 20000); +$line =~ m"(?:\s*\'(?:[^\\']|\\.)*\'\s*)"; +print "ok\n"; +EXPECT +ok + -- Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/ Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One <purl> Hey Schwern! honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk!