In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/6fd8c33ab8e814d9071f229419b493eea5a6df0f?hp=6b28e74b02b8a23cdbd7fd19c2874a19c37827de>
- Log -----------------------------------------------------------------
commit 6fd8c33ab8e814d9071f229419b493eea5a6df0f
Author: Leon Timmermans <faw...@gmail.com>
Date: Mon Jun 10 00:12:11 2013 +0200
Don't ignore signals on pclose
This is a bug, per POSIX
-----------------------------------------------------------------------
Summary of changes:
util.c | 10 ----------
1 file changed, 10 deletions(-)
diff --git a/util.c b/util.c
index 66793a3..6953486 100644
--- a/util.c
+++ b/util.c
@@ -2766,19 +2766,9 @@ Perl_my_pclose(pTHX_ PerlIO *ptr)
#endif
close_failed = (PerlIO_close(ptr) == EOF);
SAVE_ERRNO;
-#ifndef PERL_MICRO
- rsignal_save(SIGHUP, (Sighandler_t) SIG_IGN, &hstat);
- rsignal_save(SIGINT, (Sighandler_t) SIG_IGN, &istat);
- rsignal_save(SIGQUIT, (Sighandler_t) SIG_IGN, &qstat);
-#endif
if (should_wait) do {
pid2 = wait4pid(pid, &status, 0);
} while (pid2 == -1 && errno == EINTR);
-#ifndef PERL_MICRO
- rsignal_restore(SIGHUP, &hstat);
- rsignal_restore(SIGINT, &istat);
- rsignal_restore(SIGQUIT, &qstat);
-#endif
if (close_failed) {
RESTORE_ERRNO;
return -1;
--
Perl5 Master Repository
