X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/b002ae775153930d56eef6f15991f67590f4b473..5507c093461a5bb63a4cc7e16e5a935c61c49879:/ext/POSIX/POSIX.pm

diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
index 8687eb8..76455f7 100644
--- 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 {