diff options
Diffstat (limited to 't/stack-realloc.t')
-rw-r--r-- | t/stack-realloc.t | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/t/stack-realloc.t b/t/stack-realloc.t new file mode 100644 index 0000000..46c7d35 --- /dev/null +++ b/t/stack-realloc.t @@ -0,0 +1,17 @@ +#!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; + +use Test::More tests => 1; + +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>"); + +pass; |