view release on metacpan or  search on metacpan

Debug.pm  view on Meta::CPAN

    }

    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' } )