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
--------------------------------------
*** eval.c.old	Mon Nov 11 09:31:28 1991
--- eval.c	Thu Nov 14 08:52:22 1991
***************
*** 434,443 ****
  			st = stack->ary_array;
  			tmpstr = Str_new(55,0);
  #ifdef MSDOS
! 			str_set(tmpstr, "perlglob ");
! 			str_scat(tmpstr,str);
! 			str_cat(tmpstr," |");
! #else
  #ifdef CSH
  			str_nset(tmpstr,cshname,cshlen);
  			str_cat(tmpstr," -cf 'set nonomatch; glob ");
--- 434,454 ----
  			st = stack->ary_array;
  			tmpstr = Str_new(55,0);
  #ifdef MSDOS
! #ifdef MKS_SUPPORT
! 			if (getenv("MKSARGS") != NULL) {
! 			    str_set(tmpstr, "echo ");	/* use K-sh */
! 			    str_scat(tmpstr,str);
! 			    str_cat(tmpstr,	/* xlate whitespace to nulls */
! 			      "|tr -s ' \t\f\n\r' '\\0\\0\\0\\0'|");
! 			 }
! 			 else
! #endif /* MKS_SUPPORT */
! 			 {	/* use supplied globber */
! 			    str_set(tmpstr, "perlglob "); 
! 			    str_scat(tmpstr,str);
! 			    str_cat(tmpstr," |");
! 			 }
! #else /* !MSDOS */
  #ifdef CSH
  			str_nset(tmpstr,cshname,cshlen);
  			str_cat(tmpstr," -cf 'set nonomatch; glob ");
***************
*** 1650,1656 ****
--- 1661,1671 ----
  #endif
  	goto donumset;
      case O_TMS:
+ #ifdef HAS_TIMES
  	sp = do_tms(str,gimme,arglast);
+ #else
+ 	fatal("Unsupported function times");
+ #endif
  	goto array_return;
      case O_LOCALTIME:
  	if (maxarg < 1)
***************
*** 1984,1995 ****
  	}
  	_exit(-1);
  #else /* ! FORK */
  	if ((arg[1].arg_type & A_MASK) == A_STAB)
! 	    value = (double)do_aspawn(st[1],arglast);
  	else if (arglast[2] - arglast[1] != 1)
! 	    value = (double)do_aspawn(Nullstr,arglast);
  	else {
! 	    value = (double)do_spawn(str_get(str_mortal(st[2])));
  	}
  	goto donumset;
  #endif /* FORK */
--- 1999,2011 ----
  	}
  	_exit(-1);
  #else /* ! FORK */
+ # define db_cast(x) (double)((unsigned int) (x))
  	if ((arg[1].arg_type & A_MASK) == A_STAB)
! 	    value = db_cast(do_aspawn(st[1],arglast));
  	else if (arglast[2] - arglast[1] != 1)
! 	    value = db_cast(do_aspawn(Nullstr,arglast));
  	else {
! 	    value = db_cast(do_spawn(str_get(str_mortal(st[2]))));
  	}
  	goto donumset;
  #endif /* FORK */
