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
--------------------------------------
*** cmd.c.old	Thu Nov 14 07:29:22 1991
--- cmd.c	Thu Nov 14 08:51:22 1991
***************
*** 34,40 ****
  #  include <varargs.h>
  #endif
  
! static STR str_chop;
  
  void grow_dlevel();
  
--- 34,40 ----
  #  include <varargs.h>
  #endif
  
! static STR str_chopped;
  
  void grow_dlevel();
  
***************
*** 575,586 ****
  	    match = (retstr->str_cur != 0);
  	    tmps = str_get(retstr);
  	    tmps += retstr->str_cur - match;
! 	    str_nset(&str_chop,tmps,match);
  	    *tmps = '\0';
  	    retstr->str_nok = 0;
  	    retstr->str_cur = tmps - retstr->str_ptr;
  	    STABSET(retstr);
! 	    retstr = &str_chop;
  	    goto flipmaybe;
  	case CFT_ARRAY:
  	    match = cmd->c_short->str_u.str_useful; /* just to get register */
--- 575,586 ----
  	    match = (retstr->str_cur != 0);
  	    tmps = str_get(retstr);
  	    tmps += retstr->str_cur - match;
! 	    str_nset(&str_chopped,tmps,match);
  	    *tmps = '\0';
  	    retstr->str_nok = 0;
  	    retstr->str_cur = tmps - retstr->str_ptr;
  	    STABSET(retstr);
! 	    retstr = &str_chopped;
  	    goto flipmaybe;
  	case CFT_ARRAY:
  	    match = cmd->c_short->str_u.str_useful; /* just to get register */
