my $utf = $with_utf ? '-I../lib -Mutf8'
: '';
+ my $testswitch = '-I. -MTestInit'; # -T will strict . from @INC
if ($type eq 'perl') {
- my $run = "./perl$switch $utf $test |";
+ my $run = "./perl $testswitch $switch $utf $test |";
open(RESULTS,$run) or print "can't run '$run': $!.\n";
}
else {
my $compile =
- "./perl -I../lib ../utils/perlcc -o ./$test.plc $utf ./$test "
- ." && ./$test.plc |";
+ "./perl $testswitch -I../lib ../utils/perlcc -o ".
+ "./$test.plc $utf ./$test ".
+ " && ./$test.plc |";
open(RESULTS, $compile)
or print "can't compile '$compile': $!.\n";
unlink "./$test.plc";