tdinger@hiredgun.East.Sun.COM (Tom Dinger - Sun BOS SPA) (03/23/91)
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