BEGIN {
use lib qw{ . } ;
use ExtUtils::testlib ;
use Cwd ;
if ($EPSESSIONCLASS = $ENV{EMBPERL_SESSION_CLASS})
{
eval " use Apache\:\:Session; " ;
die $@ if ($@) ;
eval " use Apache\:\:Session\:\:$EPSESSIONCLASS; " ;
}
my $cwd = $ENV{EMBPERL_SRC} ;
my $i = 0 ;
foreach (@INC)
{
$INC[$i] = "$cwd/$_" if (/^(\.\/)?blib/) ;
$i++ ;
}
} ;
1 ;