Lines Matching refs:files
13 map { $files{lc($_)}++ } <op/*>;
14 map { delete $files{"op/$_"} } split /[\s\n]/, `dir /b /l op & dir /b /l /ah op 2>nul`,
17 map { $files{lc($_)}++ } <[.op]*>;
18 map { s/;.*$//; delete $files{lc($_)}; } split /[\n]/, `directory/noheading/notrailing/versions=1 [.op]`,
22 map { $files{$_}++ } <:op:*>;
23 map { delete $files{$_} } split /[\s\n]/, `echo :op:\xc5`;
26 map { $files{$_}++ } <op/*>;
27 map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
29 if (keys %files) {
30 print "not ok 1\t(",join(' ', sort keys %files),"\n";