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/write.t.old	Tue Apr 23 22:38:04 1991
--- t/op/write.t	Thu Nov 14 08:57:18 1991
***************
*** 20,26 ****
  'i' . 's', "time\n", $good, 'to'
  .
  
! open(OUT, '>Op.write.tmp') || die "Can't create Op.write.tmp";
  
  $fox = 'foxiness';
  $good = 'good';
--- 20,26 ----
  'i' . 's', "time\n", $good, 'to'
  .
  
! open(OUT, '>Op_write.tmp') || die "Can't create Op_write.tmp";
  
  $fox = 'foxiness';
  $good = 'good';
***************
*** 40,47 ****
  of huma...
  now is the time for all good men to come to\n";
  
! if (`cat Op.write.tmp` eq $right)
!     { print "ok 1\n"; unlink 'Op.write.tmp'; }
  else
      { print "not ok 1\n"; }
  
--- 40,47 ----
  of huma...
  now is the time for all good men to come to\n";
  
! if (`cat Op_write.tmp` eq $right)
!     { print "ok 1\n"; unlink 'Op_write.tmp'; }
  else
      { print "not ok 1\n"; }
  
***************
*** 57,63 ****
  'i' . 's', "time\n", $good, 'to'
  .
  
! open(OUT2, '>Op.write.tmp') || die "Can't create Op.write.tmp";
  
  $fox = 'foxiness';
  $good = 'good';
--- 57,63 ----
  'i' . 's', "time\n", $good, 'to'
  .
  
! open(OUT2, '>Op_write.tmp') || die "Can't create Op_write.tmp";
  
  $fox = 'foxiness';
  $good = 'good';
***************
*** 80,87 ****
  necessary
  now is the time for all good men to come to\n";
  
! if (`cat Op.write.tmp` eq $right)
!     { print "ok 2\n"; unlink 'Op.write.tmp'; }
  else
      { print "not ok 2\n"; }
  
--- 80,87 ----
  necessary
  now is the time for all good men to come to\n";
  
! if (`cat Op_write.tmp` eq $right)
!     { print "ok 2\n"; unlink 'Op_write.tmp'; }
  else
      { print "not ok 2\n"; }
  
***************
*** 99,105 ****
  .
  EOFORMAT
  
! open(OUT2, '>Op.write.tmp') || die "Can't create Op.write.tmp";
  
  $fox = 'foxiness';
  $good = 'good';
--- 99,105 ----
  .
  EOFORMAT
  
! open(OUT2, '>Op_write.tmp') || die "Can't create Op_write.tmp";
  
  $fox = 'foxiness';
  $good = 'good';
***************
*** 122,129 ****
  necessary
  now is the time for all good men to come to\n";
  
! if (`cat Op.write.tmp` eq $right)
!     { print "ok 3\n"; unlink 'Op.write.tmp'; }
  else
      { print "not ok 3\n"; }
  
--- 122,129 ----
  necessary
  now is the time for all good men to come to\n";
  
! if (`cat Op_write.tmp` eq $right)
!     { print "ok 3\n"; unlink 'Op_write.tmp'; }
  else
      { print "not ok 3\n"; }
  
