[inseparable changes from match from perl-5.003_97 to perl-5.003_97a]
[perl.git] / t / op / mkdir.t
index 1ffeaa1..5a6dfe5 100755 (executable)
@@ -4,7 +4,7 @@
 
 print "1..7\n";
 
-$^O eq 'MSWin32' ? `cmd /x /c del /s /q blurfl` : `rm -rf blurfl`;
+$^O eq 'MSWin32' ? `del /s /q blurfl 2>&1` : `rm -rf blurfl`;
 
 print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
 print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");