According to Gisle Aas:
> The test case is now down to:
> 
>   use HTML::Parser;
>   my $x = HTML::Parser->new(api_version => 3);
>   $x->handler(end => sub { push(@row, (1) x 505); 1 },   "");
>   $x->parse("</TD>");
> 
> When running it with 'perl -Dts' I get:
> 
>   (xxx.pl:4)      repeat
>       =>  ... IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  
> IV(1)  IV(1)  IV(1)
>   IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)  IV(1) 
>  IV(1)  IV(1)  IV(1)  IV(1)  IV(1)
>   (xxx.pl:4)      push
>       =>  \HV()  PV("</TD>"\0)  IV(505)
>   (xxx.pl:4)      leavesub
>       =>   [STACK UNDERFLOW!!!]

Wait a minute.  What happened to the "const" for the "1"?
-- 
Chip Salzenberg               - a.k.a. -               <[EMAIL PROTECTED]>
"I wanted to play hopscotch with the impenetrable mystery of existence,
    but he stepped in a wormhole and had to go in early."  // MST3K


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to