pidgone() is only used in util.c, so it can be static.

p4raw-id: //depot/perl@34932

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index 0c15c56c08..0287d3422a 100644
--- a/util.c
+++ b/util.c
@@ -3020,7 +3020,7 @@ Perl_wait4pid(pTHX_ Pid_t pid, int *statusp, int flags)
 
 #ifdef PERL_USES_PL_PIDSTATUS
 void
-Perl_pidgone(pTHX_ Pid_t pid, int status)
+S_pidgone(pTHX_ Pid_t pid, int status)
 {
     register SV *sv;