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