>
> I'd tried that without success - the following, for example, doesn't
> work for me:
>
> ----
> <html><body bgcolor="white">
> <p>Executing here:</p>
>
> [- Execute { inputfile => 'foo.html', options => 262144 } -]
>
> <p>Done.</p>
> </body></html>
> ----
>
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
-------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925131
WWW: http://www.ecos.de Fax: +49 6133 925152
-------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
