Test for Embperl::Execute and errors

# # Example for using Embperl::Execute # # run this under mod_perl / Apache::Registry # use Embperl ; my($r) = @_; # workaround for broken $r -> chdir_file in Apache::Registry on ActiveState perl use Cwd ; use File::Basename ; my $fn = $r -> filename ; chdir(dirname ($fn)) ; $Embperl::DebugDefault = 811005 ; $r -> status (200) ; $r -> send_http_header () ; print "
\n" ; my $out ; print "

# 1.) The next one produces an error page

\n" ; Embperl::Execute ({inputfile => '../error.htm', output => \$out, req_rec => $r}) ; print "

### $out

\n" ; undef $out ; print "

# 2.) The next one produces an errors, but error page is disabled

\n" ; Embperl::Execute ({inputfile => '../error.htm', output => \$out, options => Embperl::optDisableEmbperlErrorPage, req_rec => $r}) ; print "

### $out

\n" ; undef $out ; print "

# 3.) Done :-)

\n" ; print "
\n";