=?iso-8859-1?Q?Problems_with_$req=5Frec_->_prev_->_pnotes('EMBPERL=5FERRORS')_; ?=

[Maurício Amorim <ma...@terra.com.br>]

Hi list,

I am using ErrorDocument directive in apache and i set EMBPERL_OPTIONS 262144

My apache configuration is:

#
# MOD_PERL
#
Alias /perl /home/masilva/local/apache/cgi-bin/perl
PerlModule Apache::Registry
<Location /perl>
 SetHandler perl-script
 PerlHandler Apache::Registry
 Options ExecCGI
 PerlSendHeader On
 allow from all
</Location>
#
# EMBPERL
#
PerlModule HTML::Embperl
Addtype text/html .epl
<Files *.epl>
 SetHandler perl-script
 PerlHandler HTML::Embperl
 Options ExecCGI
</Files>
#
# EMBPERL /embperl/verdoc-des
#
<Location /embperl/verdoc-des>
 SetHandler perl-script
 PerlHandler HTML::Embperl
 Options ExecCGI
 PerlSetEnv EMBPERL_OPTIONS 262144
 ErrorDocument 500 http://merlin.cpqd.com.br:8082/embperl/verdoc-des/err.epl
</Location>
#
# Apache::DBI
#
PerlModule Apache::DBI

But, when the err.epl is executed (by an die in some .epl), it stay slow and not return the page for browser. I can't get the error. 
The @$errors storage the text of an "die" ?
The err.epl is:

<html>
  <body topmargin="50">
    <center>
    <table border="1" width="760" cellpadding="0" cellspacing="0" bordercolor="#000000">
      <tr>
        <td bgcolor="#00008b" align="center" valign="middle" height="30">
          <font face="Arial" size="4" color="#FFFFFF">
          [- $errors = $req_rec -> prev -> pnotes('EMBPERL_ERRORS') ; -]
          There are [+ scalar(@$errors) +] errormessages
          </font>
        </td>
      </tr>
      <tr>
        <td bgcolor="#ffa500" align="center" valign="middle" height="80">
          <b>OIOI</b>
       </td>
      </tr>
  </table>
  </center>
  </body>
</html>