debian/perl-framework/Apache-Test/t/conf/modperl_extra.pl.in


1
2
3
4
5
6
7
8
9
10
11
12
13

use strict;
use warnings FATAL => qw(all);

use File::Spec ();

use lib ();  # empty so we can calculate the lib to use

my @libs = (File::Spec->catfile('@ServerRoot@', 'response'),
            File::Spec->catfile('@ServerRoot@', qw(.. lib)));

lib->import(@libs);

1;