Hi Gerald,
Complete success on 1.3.2! Thanks. Does/will version 2.0x handle this
similarly?
Cheers,
Gavin
On Tue, May 22, 2001 at 01:14:18PM +0200, Gerald Richter wrote:
> ok, you are right, my answer was a little bit too quick...
>
> You need to reset Embperl internals error flag, but you can't. You first
> have to make the following patch: In Embperl.xs line 560, change
>
> int
> embperl_Error(r,...)
> tReq * r
> CODE:
> RETVAL = r -> bError ;
> OUTPUT:
> RETVAL
>
>
> to
>
> int
> embperl_Error(r,...)
> tReq * r
> CODE:
> RETVAL = r -> bError ;
> if (items > 1)
> r -> bError = (int)SvIV(ST(1)) ;
> OUTPUT:
> RETVAL
>
>
> After this patch the following code works:
>
> <body>
>
>
> [-
> $r = shift ;
> my $err = $r -> Error ;
> $rc = Execute { inputfile => 'notfound.htm', options => 262144 } ;
> $r -> Error ($err) ;
>
> -]
>
>
> rc = [+ $rc +]<br>
>
> <p>Done.</p>
> </body></html>
>
> Gerald
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
