POSIX getpgrp is not -w clean

To: perlbug@perl.org
Message-ID: <13970.20107.190314.549471@zappa>

p4raw-id: //depot/cfgperl@2573

diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
index 8687eb8..76455f7 100644 (file)
--- a/ext/POSIX/POSIX.pm
+++ b/ext/POSIX/POSIX.pm
@@ -866,7 +866,7 @@ sub getlogin {
 
 sub getpgrp {
     usage "getpgrp()" if @_ != 0;
-    CORE::getpgrp($_[0]);
+    CORE::getpgrp;
 }
 
 sub getpid {