From PPirn@lnc.com

I've looked at the code for both op/misc.t and op/stat.t, but I can't see
why the "file already exists" errors occurred in either case. As far as I
can tell, the files should not have already existed. How were they created?

Run Perl tests.

cd ./t
./perl harness

op/misc.............sh​: misctmp002​: file already exists
dubious
  Test returned status 0 (wstat 13, 0xd)
DIED. FAILED tests 2-57
  Failed 56/57 tests, 1.75% okay

sh​: Op.stat.tmp​: file already exists
FAILED tests 7-8
  Failed 2/58 tests, 96.55% okay

Failed Test Status Wstat Total Fail Failed List of failed

--
op/misc.t 0 13 57 56 98.25% 2-57
op/stat.t 58 2 3.45% 7-8
6 tests skipped, plus 16 subtests skipped.
Failed 2/190 test scripts, 98.95% okay. 58/6503 subtests failed, 99.11% okay.

Try running op/misc.t individually several times​:

honey 263$ ./perl op/misc.t
1..57
ok 1
sh​: misctmp004​: file already exists
honey 269$ ./perl op/misc.t
1..57
ok 1
sh​: misctmp005​: file already exists
honey 270$ ./perl op/misc.t
1..57
ok 1
sh​: misctmp006​: file already exists

Fix op/misc.t.

===================================================================
RCS file​: RCS/misc.t,v
retrieving revision 1.1
diff -c -r1.1 misc.t
*** misc.t 2000/01/26 14​:00​:41 1.1
--- misc.t 2000/01/26 14​:22​:19
***************
*** 29,35 ****
  open TEST, "| .\\perl -I../lib $switch >$tmpfile 2>&1";
  }
  else {
! open TEST, "| sh -c './perl $switch' >$tmpfile 2>&1";
  }
  print TEST $prog, "\n";
  close TEST;
--- 29,35 ----
  open TEST, "| .\\perl -I../lib $switch >$tmpfile 2>&1";
  }
  else {
! open TEST, "| sh -c './perl $switch' >| $tmpfile 2>&1";
  }
  print TEST $prog, "\n";
  close TEST;

Fix op/stat.t.

===================================================================
RCS file​: RCS/stat.t,v
retrieving revision 1.1
diff -c -r1.1 stat.t
*** stat.t 2000/01/26 14​:16​:53 1.1
--- stat.t 2000/01/26 14​:20​:03
***************
*** 72,78 ****
  if (-z 'Op.stat.tmp') {print "ok 5\n";} else {print "not ok 5\n";}
  if (! -s 'Op.stat.tmp') {print "ok 6\n";} else {print "not ok 6\n";}
 
! $Is_MSWin32 ? `cmd /c echo hi > Op.stat.tmp` : `echo hi >Op.stat.tmp`;
  if (! -z 'Op.stat.tmp') {print "ok 7\n";} else {print "not ok 7\n";}
  if (-s 'Op.stat.tmp') {print "ok 8\n";} else {print "not ok 8\n";}
 
--- 72,78 ----
  if (-z 'Op.stat.tmp') {print "ok 5\n";} else {print "not ok 5\n";}
  if (! -s 'Op.stat.tmp') {print "ok 6\n";} else {print "not ok 6\n";}
 
! $Is_MSWin32 ? `cmd /c echo hi > Op.stat.tmp` : `echo hi >| Op.stat.tmp`;
  if (! -z 'Op.stat.tmp') {print "ok 7\n";} else {print "not ok 7\n";}
  if (-s 'Op.stat.tmp') {print "ok 8\n";} else {print "not ok 8\n";}

-
Peeter Pirn Lincoln Financial Systems