debug details

nmisch · May 19, 2024 · 4863079 · 4863079
1 parent 94a6295
commit 4863079
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/.github/workflows/bsd.yml b/.github/workflows/bsd.yml
@@ -48,6 +48,6 @@ jobs:
             curl -L https://cpanmin.us | sudo perl - --notest --installdeps --with-configure --with-develop .
             perl Makefile.PL
             make
-            ktrace -di perl -Iblib/lib t/kill_kill.t || true
+            ktrace -di env IPCRUNDEBUG=gory perl -Iblib/lib t/kill_kill.t || true
             kdump || true
             prove -wlvmb t
diff --git a/lib/IPC/Run.pm b/lib/IPC/Run.pm
@@ -1798,10 +1798,15 @@ sub kill_kill {
 
         $self->reap_nb;
         last unless $self->_running_kids;
+        _debug "running_kids remain"
+          if _debugging;
 
         if ( $accum_delay >= $grace * 0.8 ) {
             ## No point in checking until delay has grown some.
-            if ( time >= $quitting_time ) {
+            my $t = time;
+            if ( $t >= $quitting_time ) {
+                _debug "$t >= $quitting_time"
+                    if _debugging;
                 if ( !$have_killed_before ) {
                     $self->signal($coup_d_grace);
                     $have_killed_before = 1;