1N/A chdir 't' if -d 't'; 1N/A} else { print "ok 1\n"; } 1N/Aprint $/ eq "\n" ? "ok 2\n" : "not ok 2\n"; 1N/Aprint "${not}ok 3\n"; 1N/Aprint $/ eq "\n" ? "ok 4\n" : "not ok 4\n"; 1N/A# test the "glob" operator 1N/A$_ = $^O eq 'MacOS' ? ":op:*" : "op/*"; 1N/Aprint "@glops" eq "@oops" ? "ok 5\n" : "not ok 5\n"; 1N/Aprint "@glops" eq "@oops" ? "ok 6\n" : "not ok 6\n"; 1N/A# glob should still work even after the File::Glob stash has gone away 1N/A# (this used to dump core) 1N/Aprint $i == 2 ? "ok 7\n" : "not ok 7\n"; 1N/A# ... while ($var = glob(...)) should test definedness not truth 1N/A print "ok 8 # skip: File::Glob emulated Unixism\n"; 1N/A# The formerly-broken test for the situation above would accidentally 1N/A# test definedness for an assignment with a LOGOP on the right: 1N/A# Better check that glob actually returned some entries 1N/A print "${not}ok 10\n";