push( @ARGV, `dir/s/b cmd` );
push( @ARGV, `dir/s/b io` );
push( @ARGV, `dir/s/b op` );
+ push( @ARGV, `dir/s/b pragma` );
push( @ARGV, `dir/s/b lib` );
- push( @ARGV, `dir/s/b nt` );
grep( chomp, @ARGV );
@ARGV = grep( /\.t$/, @ARGV );
grep( s/.*t\\//, @ARGV );
# @ARGV = split(/[ \n]/,
# `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t pragma/*.t lib/*.t`);
+} else {
+
+@ARGV = map(glob($_),@ARGV);
+
}
-if ($^O eq 'os2' || $^O eq 'qnx' || 1) {
+if ($^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'qnx' || 1) {
$sharpbang = 0;
}
else {