vcs.maemo.org Git - pkg-perl/blob - deb-src/libhtml-parser-perl/libhtml-parser-perl-3.56/t/stack-realloc.t

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