Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!newstop!eastapps!hiredgun!tdinger
From: tdinger@hiredgun.East.Sun.COM (Tom Dinger - Sun BOS SPA)
Newsgroups: comp.lang.perl
Subject: DOS Perl fix: my_unexec() calls kill()
Summary: Conditionally call kill().
Message-ID: <5052@eastapps.East.Sun.COM>
Date: 23 Mar 91 07:05:30 GMT
References: <5050@eastapps.East.Sun.COM>
Sender: news@East.Sun.COM
Reply-To: tdinger@east.sun.com (Tom Dinger - Sun BOS SPA)
Organization: Sun Microsystems, Billerica MA
Lines: 43


	Remove reference to kill() for DOS-Perl
	For Perl 4.000
	23 March 1991
	Tom Dinger

	Some new code for the my_unexec() function arrived between Beta
	and the official release, replacing a call to abort() with a call
	to kill(getpid(),SIGABRT).

	This doesn't work for DOS -- abort() was fine, since DOS does not
	have an undump utility.  This patch changes the code back
	conditionally for DOS.

	Apply with the patch utility ("patch -p -N < thisfile")

*** orig/perl.c	Fri Mar 22 22:34:14 1991
--- perl.c	Fri Mar 22 22:35:20 1991
***************
*** 1201,1206 ****
--- 1201,1209 ----
  	fprintf(stderr, "unexec of %s into %s failed!\n", perlpath, dumpname);
      exit(status);
  #else
+ #ifdef MSDOS
+     abort();	/* nothing else to do */
+ #else /* ! MSDOS */
  #   ifndef SIGABRT
  #	define SIGABRT SIGILL
  #   endif
***************
*** 1208,1213 ****
--- 1211,1217 ----
  #	define SIGILL 6		/* blech */
  #   endif
      kill(getpid(),SIGABRT);	/* for use with undump */
+ #endif /* ! MSDOS */
  #endif
  }
  
Tom Dinger	     consulting at:
TechnoLogics, Inc.        Sun Microsystems    Internet: tdinger@East.Sun.COM
(508)486-8500             (508)671-0521       UUCP: ...!sun!suneast!tdinger