BEGIN {
chdir 't' if -d 't';
$dir = "self-$$";
- unshift @INC, ("./$dir", "../lib");
+ @INC = $dir;
+ push @INC, '../lib';
print "1..19\n";
# Try to read from the data file handle
my $foodata = <Foo::DATA>;
+close Foo::DATA;
if (defined $foodata) {
print "not ok 17 # $foodata\n";
} else {
# Try to read from the data file handle
my $bardata = <Bar::DATA>;
+close Bar::DATA;
if ($bardata ne "sub never { die \"D'oh\" }\n") {
print "not ok 19 # $bardata\n";
} else {