MS-DOS patches to perl.
Apply this patch to the standard perl source, version 4, patch level 19,
using "patch -p."  Do this in the root directory of the perl source
distribution.

You can cat all these patches together and pipe the output to patch -p.

Len Reed
Holos Software, Inc.
..!gatech!holos0!lbr
holos0!lbr@gatech.edu
--------------------------------------
*** t/op/time.t.old	Tue Apr 23 23:48:48 1991
--- t/op/time.t	Thu Nov 14 08:57:18 1991
***************
*** 4,11 ****
  
  print "1..5\n";
  
! ($beguser,$begsys) = times;
  
  $beg = time;
  
  while (($now = time) == $beg) {}
--- 4,14 ----
  
  print "1..5\n";
  
! eval('umask');	# won't work on MS-DOS
! $msdos = $@;
  
+ ($beguser,$begsys) = times unless $msdos;
+ 
  $beg = time;
  
  while (($now = time) == $beg) {}
***************
*** 12,24 ****
  
  if ($now > $beg && $now - $beg < 10){print "ok 1\n";} else {print "not ok 1\n";}
  
! for ($i = 0; $i < 100000; $i++) {
!     ($nowuser, $nowsys) = times;
!     $i = 200000 if $nowuser > $beguser && $nowsys > $begsys;
!     last if time - $beg > 20;
  }
! 
! if ($i >= 200000) {print "ok 2\n";} else {print "not ok 2\n";}
  
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($beg);
  ($xsec,$foo) = localtime($now);
--- 15,31 ----
  
  if ($now > $beg && $now - $beg < 10){print "ok 1\n";} else {print "not ok 1\n";}
  
! if ($msdos) {
!     print "ok 2\n";
  }
! else {
!     for ($i = 0; $i < 100000; $i++) {
! 	($nowuser, $nowsys) = times;
! 	$i = 200000 if $nowuser > $beguser && $nowsys > $begsys;
! 	last if time - $beg > 20;
!     }
!     if ($i >= 200000) {print "ok 2\n";} else {print "not ok 2\n";}
! }
  
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($beg);
  ($xsec,$foo) = localtime($now);
