# http://bugs6.perl.org/rt2/Ticket/Display.html?id=1760 and illustrated
# by the seg fault of perl -e '("x\n" x 5000) =~ /(.*\n)+/'
# -- ccshan 2002-09-05]
# http://bugs6.perl.org/rt2/Ticket/Display.html?id=1760 and illustrated
# by the seg fault of perl -e '("x\n" x 5000) =~ /(.*\n)+/'
# -- ccshan 2002-09-05]
local($label) = $2;
local($body) = $1;
local($prefix, $suffix, $*) = ($`, $', 0);
local($label) = $2;
local($body) = $1;
local($prefix, $suffix, $*) = ($`, $', 0);
# http://bugs6.perl.org/rt2/Ticket/Display.html?id=1760 and illustrated
# by the seg fault of perl -e '("x\n" x 5000) =~ /(.*\n)+/'
# -- ccshan 2002-09-05]
# http://bugs6.perl.org/rt2/Ticket/Display.html?id=1760 and illustrated
# by the seg fault of perl -e '("x\n" x 5000) =~ /(.*\n)+/'
# -- ccshan 2002-09-05]
local($label) = $2;
local($body) = $1;
local($prefix, $suffix, $*) = ($`, $', 0);
local($label) = $2;
local($body) = $1;
local($prefix, $suffix, $*) = ($`, $', 0);