From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 10 Aug 1999 14:37:08 +0000 (+0000)
Subject: Use Pid_t on pgrp matters.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9853a804c5ee6ba358f5279ea580f8fe915925b6;p=p5sagit%2Fp5-mst-13.2.git

Use Pid_t on pgrp matters.

p4raw-id: //depot/cfgperl@3951
---

diff --git a/pp_sys.c b/pp_sys.c
index 300b453..ee06f58 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3765,20 +3765,20 @@ PP(pp_getpgrp)
 #ifdef HAS_GETPGRP
     djSP; dTARGET;
     Pid_t pid;
-    I32 value;
+    Pid_t pgrp;
 
     if (MAXARG < 1)
 	pid = 0;
     else
 	pid = SvIVx(POPs);
 #ifdef BSD_GETPGRP
-    value = (I32)BSD_GETPGRP(pid);
+    pgrp = (I32)BSD_GETPGRP(pid);
 #else
     if (pid != 0 && pid != getpid())
 	DIE(aTHX_ "POSIX getpgrp can't take an argument");
-    value = (I32)getpgrp();
+    pgrp = getpgrp();
 #endif
-    XPUSHi(value);
+    XPUSHi(pgrp);
     RETURN;
 #else
     DIE(aTHX_ PL_no_func, "getpgrp()");