view release on metacpan or  search on metacpan

Debug.pm  view on Meta::CPAN

40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
}
 
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' } )