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/base/term.t.old	Tue Apr 23 23:48:50 1991
--- t/base/term.t	Thu Nov 14 08:57:00 1991
***************
*** 4,9 ****
--- 4,12 ----
  
  print "1..6\n";
  
+ eval('umask');	# won't work on MS-DOS
+ $msdos = $@;
+ 
  # check "" interpretation
  
  $x = "\n";
***************
*** 29,35 ****
  
  # check <> pseudoliteral
  
! open(try, "/dev/null") || (die "Can't open /dev/null.");
  if (<try> eq '') {
      print "ok 5\n";
  }
--- 32,39 ----
  
  # check <> pseudoliteral
  
! $null_dev = $msdos ? 'NUL' : '/dev/null';
! open(try, $null_dev) || (die "Can't open $null_dev.");
  if (<try> eq '') {
      print "ok 5\n";
  }
***************
*** 38,42 ****
      die "/dev/null IS NOT A CHARACTER SPECIAL FILE!!!!\n" unless -c '/dev/null';
  }
  
! open(try, "../Makefile") || (die "Can't open ../Makefile.");
  if (<try> ne '') {print "ok 6\n";} else {print "not ok 6\n";}
--- 42,46 ----
      die "/dev/null IS NOT A CHARACTER SPECIAL FILE!!!!\n" unless -c '/dev/null';
  }
  
! open(try, "../perl.c") || (die "Can't open ../perl.c.");
  if (<try> ne '') {print "ok 6\n";} else {print "not ok 6\n";}
