HEX
Server: Apache
System: Windows NT MAGNETO-ARM 10.0 build 22000 (Windows 10) AMD64
User: Michel (0)
PHP: 7.4.7
Disabled: NONE
Upload Files
File: C:/mod_perl-2.0.12/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;