2_0_13/ModPerl-Registry/t/cgi-bin/require.pl

# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
# test the require

use Apache::Test ();
use File::Spec::Functions qw(catfile);

my $vars = Apache::Test::config()->{vars};
my $require = catfile $vars->{serverroot}, 'cgi-bin', 'local-conf.pl';

print "Content-type: text/plain\n\n";

# XXX: meanwhile we don't chdir to the script's dir
delete $INC{$require};
require $require;

print defined $test_require && $test_require;