This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX getpgrp is not -w clean
[perl5.git] / ext / POSIX / POSIX.pm
index 8687eb8..76455f7 100644 (file)
@@ -866,7 +866,7 @@ sub getlogin {
 
 sub getpgrp {
     usage "getpgrp()" if @_ != 0;
-    CORE::getpgrp($_[0]);
+    CORE::getpgrp;
 }
 
 sub getpid {