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
--------------------------------------
*** stab.c.old	Mon Nov 11 09:32:18 1991
--- stab.c	Thu Nov 14 08:52:28 1991
***************
*** 353,360 ****
  #else
  	    ;
  #endif
! 	else if (strEQ(s,"DEFAULT") || !*s)
  	    (void)signal(i,SIG_DFL);
  	else {
  	    (void)signal(i,sighandler);
  	    if (!index(s,'\'')) {
--- 353,368 ----
  #else
  	    ;
  #endif
! 	else if (strEQ(s,"DEFAULT") || !*s) {
! #ifdef MSDOS
! 	    	/* Can't allow signal to kill perl bypassing final
! 		   cleanup.  Would leave temp files stranded.
! 		*/
! 	    (void)signal(i,msdos_sig_death);
! #else
  	    (void)signal(i,SIG_DFL);
+ #endif
+ 	}
  	else {
  	    (void)signal(i,sighandler);
  	    if (!index(s,'\'')) {
***************
*** 709,714 ****
--- 717,725 ----
  #ifdef OS2		/* or anybody else who requires SIG_ACK */
      signal(sig, SIG_ACK);
  #endif
+ #ifdef MSDOS
+     (void)signal(sig,msdos_sig_death);	/* in place of resulting SIG_DFL */
+ #endif
      stab = stabent(
  	str_get(hfetch(stab_hash(sigstab),sig_name[sig],strlen(sig_name[sig]),
  	  TRUE)), TRUE);
***************
*** 900,906 ****
      }
  }
  
! stab_fullname(str,stab)
  STR *str;
  STAB *stab;
  {
--- 911,917 ----
      }
  }
  
! void stab_fullname(str,stab)
  STR *str;
  STAB *stab;
  {
