diff --git a/perl.h b/perl.h
index d3bface8b2fb..9c750f7b301f 100644
--- a/perl.h
+++ b/perl.h
@@ -1028,9 +1028,6 @@ violations are fatal.
 #  define HAS_SETPGRP  /* Well, effectively it does . . . */
 #endif
 
-/* getpgid isn't POSIX, but at least Solaris and Linux have it, and it makes
-    our life easier :-) so we'll try it.
-*/
 #ifdef HAS_GETPGID
 #  define BSD_GETPGRP(pid)		getpgid((pid))
 #elif defined(HAS_GETPGRP) && defined(USE_BSD_GETPGRP)
diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index ed2aa3bc81f5..ff6890118e9f 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -3128,9 +3128,10 @@ Returns the current process group for the specified PID.  Use
 a PID of C<0> to get the current process group for the
 current process.  Will raise an exception if used on a machine that
 doesn't implement L<getpgrp(2)>.  If PID is omitted, returns the process
-group of the current process.  Note that the POSIX version of
-L<C<getpgrp>|/getpgrp PID> does not accept a PID argument, so only
-C<PID==0> is truly portable.
+group of the current process.
+
+Some very old machines may not support C<PID != 0> and will throw an
+exception if C<PID != 0>.
 
 Portability issues: L<perlport/getpgrp>.