CGI-Debug
view release on metacpan or search on metacpan
404142434445464748495051525354555657585960}
if
(
exists
$ENV
{
'GATEWAY_INTERFACE'
} and
$ENV
{
'GATEWAY_INTERFACE'
} =~ /^CGI-Perl/
)
{
my
$modfile
=
$Module
;
$modfile
=~ s/::/\//g;
my
(
$i
,
$p
,
$filename
)=0;
while
( (
$p
,
$filename
) =
caller
(++
$i
) )
{
last
unless
$filename
=~ /\/
$modfile
\.pm$/;
}
warn
"$filename: $Module can't be used under mod_perl\n"
;
return
;
}
unless
(
eval
{
require
'CGI.pm'
} )
( run in 0.344 second using v1.01-cache-2.11-cpan-8d75d55dd25 )