[perl #3646] several segfaults new in bleedperl

http://rt.perl.org/rt3/Ticket/Display.html?id=3646
All are fixed except for problem 3:
eval {
 $_ = "1";
 our $foo = qr{ (\d+)
  (?{ die "foo" })
  (?{ $undefined }) }x;
 m{ (??{ $foo }) }x;
};

print "result is [$@]\n";

Now it segfaults in both 5.8.8 and 5.10.

-- 
Alexandr Ciornii, http://chorny.net

• [ID 20000806.002] several segfaults new in bleedperl by Jeffrey Friedl
• RE: [ID 20000806.002] several segfaults new in bleedperl by Fisher Mark
• Re: [ID 20000806.002] several segfaults new in bleedperl by Hugo
• [perl #3646] several segfaults new in bleedperl by Alexandr Ciornii via RT
• Re: [perl #3646] several segfaults new in bleedperl by Dave Mitchell
• Re: [ID 20000806.002] several segfaults new in bleedperl by Hugo
• Re: [ID 20000806.002] several segfaults new in bleedperl by Jarkko Hietaniemi