[PATCH] watchdog should not execute END block

["Jerry D. Hedden" <jdhedden@cpan.org>]

The watchdog() function should not execute the END block added by
test.pl when it forks a process.
--- perl-current/t/test.pl
+++ perl-current/t/test.pl
@@ -845,6 +845,9 @@
             kill('KILL', $pid_to_kill);
         }
 
+        # Don't execute END block (added at beginning of this file)
+        $NO_ENDING = 1;
+
         # Terminate ourself (i.e., the watchdog)
         POSIX::_exit(1) if (defined(&POSIX::_exit));
         exit(1);

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---