diff options
author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2013-05-08 22:21:52 +0000 |
---|---|---|
committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2013-05-08 22:21:52 +0000 |
commit | 2f253cfc85ffd55a8acb988e91f0bc5ab348124c (patch) | |
tree | 4734ccd522c71dd455879162006742002f8c1565 /t/stack-realloc.t | |
download | HTML-Parser-tarball-master.tar.gz |
HTML-Parser-3.71HEADHTML-Parser-3.71master
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; |