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/io/argv.t.old	Tue Apr 23 23:48:50 1991
--- t/io/argv.t	Thu Nov 14 08:57:08 1991
***************
*** 4,18 ****
  
  print "1..5\n";
  
! open(try, '>Io.argv.tmp') || (die "Can't open temp file.");
  print try "a line\n";
  close try;
  
! $x = `./perl -e 'while (<>) {print \$.,\$_;}' Io.argv.tmp Io.argv.tmp`;
  
  if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
  
! $x = `echo foo|./perl -e 'while (<>) {print $_;}' Io.argv.tmp -`;
  
  if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  
--- 4,29 ----
  
  print "1..5\n";
  
! eval('umask');	# won't work on MS-DOS
! $msdos = $@;
! if ( $msdos ) {
!     $rm = $ENV{'ROOTDIR'} . '/bin/rm';
!     $null_device = 'NUL';
! }
! else {
!     $rm = '/bin/rm';
!     $null_device = '/dev/null';
! }
! 
! open(try, '>Io_argv.tmp') || (die "Can't open temp file.");
  print try "a line\n";
  close try;
  
! $x = `./perl -e 'while (<>) {print \$.,\$_;}' Io_argv.tmp Io_argv.tmp`;
  
  if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
  
! $x = `echo foo|./perl -e 'while (<>) {print $_;}' Io_argv.tmp -`;
  
  if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  
***************
*** 20,26 ****
  
  if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
  
! @ARGV = ('Io.argv.tmp', 'Io.argv.tmp', '/dev/null', 'Io.argv.tmp');
  while (<>) {
      $y .= $. . $_;
      if (eof()) {
--- 31,37 ----
  
  if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
  
! @ARGV = ('Io_argv.tmp', 'Io_argv.tmp', $null_device, 'Io_argv.tmp');
  while (<>) {
      $y .= $. . $_;
      if (eof()) {
***************
*** 33,36 ****
  else
      {print "not ok 5\n";}
  
! `/bin/rm -f Io.argv.tmp`;
--- 44,47 ----
  else
      {print "not ok 5\n";}
  
! `$rm -f Io_argv.tmp`;
