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/cmd/while.t.old	Tue Apr 23 22:38:40 1991
--- t/cmd/while.t	Thu Nov 14 08:57:02 1991
***************
*** 4,10 ****
  
  print "1..10\n";
  
! open (tmp,'>Cmd.while.tmp') || die "Can't create Cmd.while.tmp.";
  print tmp "tvi925\n";
  print tmp "tvi920\n";
  print tmp "vt100\n";
--- 4,19 ----
  
  print "1..10\n";
  
! eval('umask');	# won't work on MS-DOS
! $msdos = $@;
! if ( $msdos ) {
!     $rm = $ENV{'ROOTDIR'} . '/bin/rm';
! }
! else {
!     $rm = '/bin/rm';
! }
! 
! open (tmp,'>Cmd_while.tmp') || die "Can't create Cmd_while.tmp.";
  print tmp "tvi925\n";
  print tmp "tvi920\n";
  print tmp "vt100\n";
***************
*** 14,20 ****
  
  # test "last" command
  
! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  while (<fh>) {
      last if /vt100/;
  }
--- 23,29 ----
  
  # test "last" command
  
! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  while (<fh>) {
      last if /vt100/;
  }
***************
*** 23,29 ****
  # test "next" command
  
  $bad = '';
! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  while (<fh>) {
      next if /vt100/;
      $bad = 1 if /vt100/;
--- 32,38 ----
  # test "next" command
  
  $bad = '';
! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  while (<fh>) {
      next if /vt100/;
      $bad = 1 if /vt100/;
***************
*** 33,39 ****
  # test "redo" command
  
  $bad = '';
! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  while (<fh>) {
      if (s/vt100/VT100/g) {
  	s/VT100/Vt100/g;
--- 42,48 ----
  # test "redo" command
  
  $bad = '';
! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  while (<fh>) {
      if (s/vt100/VT100/g) {
  	s/VT100/Vt100/g;
***************
*** 49,55 ****
  # test "last" command
  
  $badcont = '';
! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  line: while (<fh>) {
      if (/vt100/) {last line;}
  } continue {
--- 58,64 ----
  # test "last" command
  
  $badcont = '';
! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  line: while (<fh>) {
      if (/vt100/) {last line;}
  } continue {
***************
*** 62,68 ****
  
  $bad = '';
  $badcont = 1;
! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  entry: while (<fh>) {
      next entry if /vt100/;
      $bad = 1 if /vt100/;
--- 71,77 ----
  
  $bad = '';
  $badcont = 1;
! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  entry: while (<fh>) {
      next entry if /vt100/;
      $bad = 1 if /vt100/;
***************
*** 76,82 ****
  
  $bad = '';
  $badcont = '';
! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  loop: while (<fh>) {
      if (s/vt100/VT100/g) {
  	s/VT100/Vt100/g;
--- 85,91 ----
  
  $bad = '';
  $badcont = '';
! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  loop: while (<fh>) {
      if (s/vt100/VT100/g) {
  	s/VT100/Vt100/g;
***************
*** 90,96 ****
  if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
  if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
  
! `/bin/rm -f Cmd.while.tmp`;
  
  #$x = 0;
  #while (1) {
--- 99,106 ----
  if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
  if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
  
! close(fh) if $msdos;	# Can't unlink open file in DOS )-:
! `$rm -f Cmd_while.tmp`;
  
  #$x = 0;
  #while (1) {
