setpgrp with one argument

setpgrp with one argument ignores it and leaves it on the stack:

$ perl -le 'print join " ", setpgrp 27'
27 1

The documentation says:

       setpgrp PID,PGRP
             Sets the current process group for the specified PID, 0 for the
               current process.  Raises an exception when used on a machine
               that doesn’t implement POSIX setpgid(2) or BSD setpgrp(2).  If
               the arguments are omitted, it defaults to "0,0".  Note that the
               BSD 4.2 version of "setpgrp" does not accept any arguments, so
               only "setpgrp(0,0)" is portable.  See also "POSIX::setsid()".

So I think setpgrp(27) should be a compile-time error, a bit like the usual ‘too many’ or ‘not enough’ errors, but in between: maybe ‘Wrong number of arguments for setpgrp’.
---
Flags:
    category=core
    severity=low
---
Site configuration information for perl 5.15.2:

Configured by sprout at Sun Aug 21 18:31:42 PDT 2011.

Summary of my perl5 (revision 5 version 15 subversion 2) configuration:
  Snapshot of: c1ff15b2b4d6172bd224dcc6f444d5f0875cd758
  Platform:
    osname=darwin, osvers=10.5.0, archname=darwin-2level
    uname='darwin pint.local 10.5.0 darwin kernel version 10.5.0: fri nov 5 23:20:39 pdt 2010; root:xnu-1504.9.17~1release_i386 i386 '
    config_args='-de -Dusedevel'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=undef, use64bitall=undef, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include',
    optimize='-O3',
    cppflags='-fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.2.1 (Apple Inc. build 5664)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='env MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags =' -fstack-protector -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib
    libs=-ldbm -ldl -lm -lutil -lc
    perllibs=-ldl -lm -lutil -lc
    libc=, so=dylib, useshrplib=false, libperl=libperl.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags=' -bundle -undefined dynamic_lookup -L/usr/local/lib -fstack-protector'

Locally applied patches:
    

---
@INC for perl 5.15.2:
    /usr/local/lib/perl5/site_perl/5.15.2/darwin-2level
    /usr/local/lib/perl5/site_perl/5.15.2
    /usr/local/lib/perl5/5.15.2/darwin-2level
    /usr/local/lib/perl5/5.15.2
    /usr/local/lib/perl5/site_perl
    .

---
Environment for perl 5.15.2:
    DYLD_LIBRARY_PATH (unset)
    HOME=/Users/sprout
    LANG=en_US.UTF-8
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/X11/bin:/usr/local/bin
    PERL_BADLANG (unset)
    SHELL=/bin/bash

• setpgrp with one argument by Father Chrysostomos
• Re: setpgrp with one argument by Rafael Garcia-Suarez
• Re: setpgrp with one argument by Nicholas Clark