The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
1234567891011121314 use Apache::ASP::CGI;use strict;&Apache::ASP::CGI::do_self(NoState => 1);__END__<% eval { $Response->TrapInclude('.'); };$t->eok($@, "should be error");eval { $Response->TrapInclude('include.inc'); };$t->eok(! $@, "should not be error");%>
use
Apache::ASP::CGI;
strict;
&Apache::ASP::CGI::do_self
(
NoState
=> 1);
__END__
<%
eval { $Response->TrapInclude('.'); };
$t->eok($@, "should be error");
eval { $Response->TrapInclude('include.inc'); };
$t->eok(! $@, "should not be error");
%>