1N/A chdir 't' if -d 't'; 1N/Amy $pat = $^O
eq "MacOS" ?
":op:G*.t" :
"op/G*.t";
1N/A# Test the actual use of the case sensitivity tags, via csh_glob() 1N/A# This may fail on systems which are not case-PRESERVING 1N/A# Test the explicit use of the GLOB_NOCASE flag 1N/A# Test Win32 backslash nastiness... 1N/Aif ($^O ne 'MSWin32' && $^O ne 'NetWare') { 1N/A print "ok 5\nok 6\nok 7\n"; 1N/A print "not " if @a == 0;