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/inplace.t.old	Tue Apr 23 22:38:18 1991
--- t/io/inplace.t	Thu Nov 14 08:57:08 1991
***************
*** 6,13 ****
  
  print "1..2\n";
  
! @ARGV = ('.a','.b','.c');
! `echo foo | tee .a .b .c`;
  while (<>) {
      s/foo/bar/;
  }
--- 6,13 ----
  
  print "1..2\n";
  
! @ARGV = ('a','b','c');
! `echo foo | tee a b c`;
  while (<>) {
      s/foo/bar/;
  }
***************
*** 15,21 ****
      print;
  }
  
! if (`cat .a .b .c` eq "bar\nbar\nbar\n") {print "ok 1\n";} else {print "not ok 1\n";}
! if (`cat .a.bak .b.bak .c.bak` eq "foo\nfoo\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  
! unlink '.a', '.b', '.c', '.a.bak', '.b.bak', '.c.bak';
--- 15,21 ----
      print;
  }
  
! if (`cat a b c` eq "bar\nbar\nbar\n") {print "ok 1\n";} else {print "not ok 1\n";}
! if (`cat a.bak b.bak c.bak` eq "foo\nfoo\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  
! unlink 'a', 'b', 'c', 'a.bak', 'b.bak', 'c.bak';
