stack-realloc.t   [plain text]

#!perl -w

# HTML-Parser 3.33 and older used to core dump on this program because
# of missing SPAGAIN calls in parse() XS code.  It was not prepared for
# the stack to get realloced.

$| = 1;

print "1..1\n";

use HTML::Parser;
my $x = HTML::Parser->new(api_version => 3);
my @row;
$x->handler(end => sub { push(@row, (1) x 505); 1 },   "tagname");
$x->parse("</TD>");

print "ok 1\n";