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/comp/multiline.t.old	Tue Apr 23 23:48:56 1991
--- t/comp/multiline.t	Thu Nov 14 08:57:06 1991
***************
*** 4,9 ****
--- 4,18 ----
  
  print "1..5\n";
  
+ eval('umask');	# won't work on MS-DOS
+ $msdos = $@;
+ if ( $msdos ) {
+     $rm = $ENV{'ROOTDIR'} . '/bin/rm';
+ }
+ else {
+     $rm = '/bin/rm';
+ }
+ 
  open(try,'>Comp.try') || (die "Can't open temp file.");
  
  $x = 'now is the time
***************
*** 27,32 ****
--- 36,42 ----
      $z .= $_;
      $count = $count + 1;
  }
+ close try if $msdos;	# multiple opening of same file messy in DOS
  
  if ($z eq $y) {print "ok 2\n";} else {print "not ok 2\n";}
  
***************
*** 33,40 ****
  if ($count == 3) {print "ok 3\n";} else {print "not ok 3\n";}
  
  $_ = `cat Comp.try`;
- 
  if (/.*\n.*\n.*\n$/) {print "ok 4\n";} else {print "not ok 4\n";}
! `/bin/rm -f Comp.try`;
  
  if ($_ eq $y) {print "ok 5\n";} else {print "not ok 5\n";}
--- 43,49 ----
  if ($count == 3) {print "ok 3\n";} else {print "not ok 3\n";}
  
  $_ = `cat Comp.try`;
  if (/.*\n.*\n.*\n$/) {print "ok 4\n";} else {print "not ok 4\n";}
! `$rm -f Comp.try`;
  
  if ($_ eq $y) {print "ok 5\n";} else {print "not ok 5\n";}
