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
--------------------------------------
*** str.c.old	Mon Nov 11 09:32:26 1991
--- str.c	Thu Nov 14 08:51:26 1991
***************
*** 212,218 ****
   * as temporary.
   */
  
! str_sset(dstr,sstr)
  STR *dstr;
  register STR *sstr;
  {
--- 212,218 ----
   * as temporary.
   */
  
! void str_sset(dstr,sstr)
  STR *dstr;
  register STR *sstr;
  {
***************
*** 296,302 ****
      }
  }
  
! str_nset(str,ptr,len)
  register STR *str;
  register char *ptr;
  register STRLEN len;
--- 296,302 ----
      }
  }
  
! void str_nset(str,ptr,len)
  register STR *str;
  register char *ptr;
  register STRLEN len;
***************
*** 315,321 ****
  #endif
  }
  
! str_set(str,ptr)
  register STR *str;
  register char *ptr;
  {
--- 315,321 ----
  #endif
  }
  
! void str_set(str,ptr)
  register STR *str;
  register char *ptr;
  {
***************
*** 336,342 ****
  #endif
  }
  
! str_chop(str,ptr)	/* like set but assuming ptr is in str */
  register STR *str;
  register char *ptr;
  {
--- 336,342 ----
  #endif
  }
  
! void str_chop(str,ptr)	/* like set but assuming ptr is in str */
  register STR *str;
  register char *ptr;
  {
***************
*** 358,364 ****
      str->str_pok = 1;		/* validate pointer (and unstudy str) */
  }
  
! str_ncat(str,ptr,len)
  register STR *str;
  register char *ptr;
  register STRLEN len;
--- 358,364 ----
      str->str_pok = 1;		/* validate pointer (and unstudy str) */
  }
  
! void str_ncat(str,ptr,len)
  register STR *str;
  register char *ptr;
  register STRLEN len;
***************
*** 378,384 ****
  #endif
  }
  
! str_scat(dstr,sstr)
  STR *dstr;
  register STR *sstr;
  {
--- 378,384 ----
  #endif
  }
  
! void str_scat(dstr,sstr)
  STR *dstr;
  register STR *sstr;
  {
***************
*** 393,399 ****
  	str_ncat(dstr,sstr->str_ptr,sstr->str_cur);
  }
  
! str_cat(str,ptr)
  register STR *str;
  register char *ptr;
  {
--- 393,399 ----
  	str_ncat(dstr,sstr->str_ptr,sstr->str_cur);
  }
  
! void str_cat(str,ptr)
  register STR *str;
  register char *ptr;
  {
***************
*** 1447,1453 ****
      return new;
  }
  
! str_reset(s,stash)
  register char *s;
  HASH *stash;
  {
--- 1447,1453 ----
      return new;
  }
  
! void str_reset(s,stash)
  register char *s;
  HASH *stash;
  {
