1use strict; 2use warnings; 3 4use HTML::Parser (); 5use Test::More tests => 1; 6 7# HTML-Parser 3.33 and older used to core dump on this program because 8# of missing SPAGAIN calls in parse() XS code. It was not prepared for 9# the stack to get realloced. 10 11$| = 1; 12 13my $x = HTML::Parser->new(api_version => 3); 14my @row; 15$x->handler(end => sub { push(@row, (1) x 505); 1 }, "tagname"); 16$x->parse("</TD>"); 17 18pass; 19