hack trying to repro on 9.2

nmisch · May 20, 2024 · 78f7933 · 78f7933
1 parent 7cbd3a3
commit 78f7933
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/lib/IPC/Run.pm b/lib/IPC/Run.pm
@@ -1460,6 +1460,10 @@ sub _exec {
     #   exec @_ or croak "$!: exec( " . join( ', ', @_ ) . " )";
     _debug 'exec()ing ', join " ", map "'$_'", @_ if _debugging_details;
 
+    my $new = POSIX::SigSet->new(&POSIX::SIGTERM);
+    POSIX::sigprocmask(&POSIX::SIG_BLOCK, $new);
+    sleep 1;
+
     #   {
 ## Commented out since we don't call this on Win32.
     #      # This works around the bug where 5.6.1 complains

diff --git a/t/kill_kill.t b/t/kill_kill.t
@@ -38,11 +38,16 @@ SCOPE: {
         [
             $^X,
             '-e',
-            'sleep while 1',
+            '
+use POSIX;
+my $new = POSIX::SigSet->new(&POSIX::SIGTERM);
+POSIX::sigprocmask(&POSIX::SIG_UNBLOCK, $new);
+sleep while 1
+',
         ]
     );
 
-    my $needed = $h->kill_kill;
+    my $needed = $h->kill_kill;#( grace => 3 );
     ok( !$needed, 'Did not need kill_kill' );
 }