#!./perl
chdir 't' if -d 't';
}
print "1..6\n";
}
else {
}
} else { print "ok 1\n"; }
print $/ eq "\n" ? "ok 2\n" : "not ok 2\n";
$not = "not at all " if $/ eq "\0"; }
print "${not}ok 3\n";
print $/ eq "\n" ? "ok 4\n" : "not ok 4\n";
# test the "glob" operator
$_ = "op/*";
print "@glops" eq "@oops" ? "ok 5\n" : "not ok 5\n";
print "@glops" eq "@oops" ? "ok 6\n" : "not ok 6\n";