perl: import parallel build fixes from upstream git tree

The parallel build issue is fixed in the upstream perl git tree
differently. Replacing our fix with the upstream fix.

Signed-off-by: Nitin A Kamble <nitin.a.kamble@intel.com>

6 files changed, 6638 insertions, 22 deletions

diff --git a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix.patch b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix.patch
deleted file mode 100644
index 476577eb3..000000000
--- a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix.patch
+++ /dev/null
@@ -1,18 +0,0 @@
-This patch fixes the parallel make issue on a 40 way build system
-
-Nitin A Kamble <nitin.a.kamble@intel.com>
-2011-02-16
-
-Index: perl-5.12.2/Makefile.SH
-===================================================================
---- perl-5.12.2.orig/Makefile.SH	2010-09-06 16:30:32.000000000 -0700
-+++ perl-5.12.2/Makefile.SH	2011-02-16 16:21:30.744143773 -0800
-@@ -198,6 +198,8 @@
- $this_target: uni.data" ;;
- 	Text/ParseWords) extra_dep="$extra_dep
- $this_target: lib/auto/Scalar/Util.$dlext" ;;
-+	POSIX) extra_dep="$extra_dep
-+$this_target: lib/auto/Cwd/Cwd.$dlext" ;;
-     esac
- done
- 
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_1.patch b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_1.patch
new file mode 100644
index 000000000..63e641003
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_1.patch
@@ -0,0 +1,25 @@
+Imported from perl git tree by Nitin A Kamble <nitin.a.kamble@intel.com>
+2011-02-23
+
+commit 6695a346c41138df5b2c0e26b9a49b1f96137da0
+Author: Tony Cook <tony@openbsd32.tony.develop-help.com>
+Date:   Thu Jul 22 09:54:13 2010 +1000
+
+    make_ext.pl populates @INC correctly, don't override it badly
+    
+    PERL5LIB is populated by make_ext.pl with paths to the modules we need
+    to run, don't override this with "../../lib" since that may not have
+    been populated yet in a parallel build.
+
+diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL
+index 392b6fb..9e6d091 100644
+--- a/ext/POSIX/Makefile.PL
++++ b/ext/POSIX/Makefile.PL
+@@ -1,7 +1,3 @@
+-# Explicitly avoid including '.' in @INC; autoloader gets confused since it
+-# can find POSIX.pm, but can't find autosplit.ix.
+-BEGIN { @INC = '../../lib';}
+-#
+ use ExtUtils::MakeMaker;
+ use ExtUtils::Constant 0.11 'WriteConstants';
+ use Config;
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_2.patch b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_2.patch
new file mode 100644
index 000000000..6c536dd05
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_2.patch
@@ -0,0 +1,22 @@
+Imported from perl git tree by Nitin A Kamble <nitin.a.kamble@intel.com>
+2011-02-23
+
+commit 24e93d7838b346d2ed632075f3d824a325170616
+Author: Tony Cook <tony@develop-help.com>
+Date:   Sat Aug 14 00:21:29 2010 +1000
+
+    POSIX/t/posix.t expects a certain start to Makefile.PL
+    
+    6695a346 changed the start of Makefile.PL, but t/posix.t reads that to
+    test its read() implementation, restore enough of the original for the
+    test to pass.
+
+diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL
+index 9e6d091..292882c 100644
+--- a/ext/POSIX/Makefile.PL
++++ b/ext/POSIX/Makefile.PL
+@@ -1,3 +1,4 @@
++# Expect this line to be read by t/posix.t, don't change it
+ use ExtUtils::MakeMaker;
+ use ExtUtils::Constant 0.11 'WriteConstants';
+ use Config;
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_3.patch b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_3.patch
new file mode 100644
index 000000000..a74a45d73
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_3.patch
@@ -0,0 +1,6583 @@
+Imported from perl git tree by Nitin A Kamble <nitin.a.kamble@intel.com>
+2011-02-23
+
+commit 4feb80ac47a22e7de7d7c1c1d5dfb3d744a2a3a7
+Author: Jerry D. Hedden <jdhedden@cpan.org>
+Date:   Tue Aug 17 13:17:11 2010 -0400
+
+    Move POSIX.pm to lib/POSIX.pm to fix autosplitter problem
+
+diff --git a/MANIFEST b/MANIFEST
+index 3036d73..faf8974 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -3183,9 +3183,9 @@ ext/POSIX/hints/openbsd.pl	Hint for POSIX for named architecture
+ ext/POSIX/hints/sunos_4.pl	Hint for POSIX for named architecture
+ ext/POSIX/hints/svr4.pl		Hint for POSIX for named architecture
+ ext/POSIX/hints/uts.pl		Hint for POSIX for named architecture
++ext/POSIX/lib/POSIX.pm		POSIX extension Perl module
++ext/POSIX/lib/POSIX.pod		POSIX extension documentation
+ ext/POSIX/Makefile.PL		POSIX extension makefile writer
+-ext/POSIX/POSIX.pm		POSIX extension Perl module
+-ext/POSIX/POSIX.pod		POSIX extension documentation
+ ext/POSIX/POSIX.xs		POSIX extension external subroutines
+ ext/POSIX/t/is.t		See if POSIX isxxx() work
+ ext/POSIX/t/math.t		Basic math tests for POSIX
+diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL
+index 292882c..07c3841 100644
+--- a/ext/POSIX/Makefile.PL
++++ b/ext/POSIX/Makefile.PL
+@@ -18,7 +18,8 @@ WriteMakefile(
+     NAME	=> 'POSIX',
+     @libs,
+     XSPROTOARG	=> '-noprototypes',	# XXX remove later?
+-    VERSION_FROM => 'POSIX.pm',
++    VERSION_FROM => 'lib/POSIX.pm',
++    ABSTRACT_FROM => 'lib/POSIX.pod',
+     realclean	=> {FILES=> 'const-c.inc const-xs.inc'},
+ );
+ 
+diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
+deleted file mode 100644
+index ffbd9de..0000000
+--- a/ext/POSIX/POSIX.pm
++++ /dev/null
+@@ -1,1042 +0,0 @@
+-package POSIX;
+-use strict;
+-use warnings;
+-
+-our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
+-
+-our $VERSION = "1.19";
+-
+-use AutoLoader;
+-
+-use XSLoader ();
+-
+-use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD
+-	     F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND
+-	     O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC
+-	     O_WRONLY SEEK_CUR SEEK_END SEEK_SET
+-	     S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
+-	     S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID
+-	     S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR);
+-
+-# Grandfather old foo_h form to new :foo_h form
+-my $loaded;
+-
+-sub import {
+-    load_imports() unless $loaded++;
+-    my $this = shift;
+-    my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_;
+-    local $Exporter::ExportLevel = 1;
+-    Exporter::import($this,@list);
+-}
+-
+-sub croak { require Carp;  goto &Carp::croak }
+-# declare usage to assist AutoLoad
+-sub usage;
+-
+-XSLoader::load 'POSIX', $VERSION;
+-
+-sub AUTOLOAD {
+-    no strict;
+-    no warnings 'uninitialized';
+-    if ($AUTOLOAD =~ /::(_?[a-z])/) {
+-	# require AutoLoader;
+-	$AutoLoader::AUTOLOAD = $AUTOLOAD;
+-	goto &AutoLoader::AUTOLOAD
+-    }
+-    local $! = 0;
+-    my $constname = $AUTOLOAD;
+-    $constname =~ s/.*:://;
+-    my ($error, $val) = constant($constname);
+-    croak $error if $error;
+-    *$AUTOLOAD = sub { $val };
+-
+-    goto &$AUTOLOAD;
+-}
+-
+-package POSIX::SigAction;
+-
+-use AutoLoader 'AUTOLOAD';
+-
+-package POSIX::SigRt;
+-
+-use AutoLoader 'AUTOLOAD';
+-
+-use Tie::Hash;
+-
+-use vars qw($SIGACTION_FLAGS $_SIGRTMIN $_SIGRTMAX $_sigrtn @ISA);
+-@POSIX::SigRt::ISA = qw(Tie::StdHash);
+-
+-$SIGACTION_FLAGS = 0;
+-
+-tie %POSIX::SIGRT, 'POSIX::SigRt';
+-
+-sub DESTROY {};
+-
+-package POSIX;
+-
+-1;
+-__END__
+-
+-sub usage {
+-    my ($mess) = @_;
+-    croak "Usage: POSIX::$mess";
+-}
+-
+-sub redef {
+-    my ($mess) = @_;
+-    croak "Use method $mess instead";
+-}
+-
+-sub unimpl {
+-    my ($mess) = @_;
+-    $mess =~ s/xxx//;
+-    croak "Unimplemented: POSIX::$mess";
+-}
+-
+-sub assert {
+-    usage "assert(expr)" if @_ != 1;
+-    if (!$_[0]) {
+-	croak "Assertion failed";
+-    }
+-}
+-
+-sub tolower {
+-    usage "tolower(string)" if @_ != 1;
+-    lc($_[0]);
+-}
+-
+-sub toupper {
+-    usage "toupper(string)" if @_ != 1;
+-    uc($_[0]);
+-}
+-
+-sub closedir {
+-    usage "closedir(dirhandle)" if @_ != 1;
+-    CORE::closedir($_[0]);
+-}
+-
+-sub opendir {
+-    usage "opendir(directory)" if @_ != 1;
+-    my $dirhandle;
+-    CORE::opendir($dirhandle, $_[0])
+-	? $dirhandle
+-	: undef;
+-}
+-
+-sub readdir {
+-    usage "readdir(dirhandle)" if @_ != 1;
+-    CORE::readdir($_[0]);
+-}
+-
+-sub rewinddir {
+-    usage "rewinddir(dirhandle)" if @_ != 1;
+-    CORE::rewinddir($_[0]);
+-}
+-
+-sub errno {
+-    usage "errno()" if @_ != 0;
+-    $! + 0;
+-}
+-
+-sub creat {
+-    usage "creat(filename, mode)" if @_ != 2;
+-    &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]);
+-}
+-
+-sub fcntl {
+-    usage "fcntl(filehandle, cmd, arg)" if @_ != 3;
+-    CORE::fcntl($_[0], $_[1], $_[2]);
+-}
+-
+-sub getgrgid {
+-    usage "getgrgid(gid)" if @_ != 1;
+-    CORE::getgrgid($_[0]);
+-}
+-
+-sub getgrnam {
+-    usage "getgrnam(name)" if @_ != 1;
+-    CORE::getgrnam($_[0]);
+-}
+-
+-sub atan2 {
+-    usage "atan2(x,y)" if @_ != 2;
+-    CORE::atan2($_[0], $_[1]);
+-}
+-
+-sub cos {
+-    usage "cos(x)" if @_ != 1;
+-    CORE::cos($_[0]);
+-}
+-
+-sub exp {
+-    usage "exp(x)" if @_ != 1;
+-    CORE::exp($_[0]);
+-}
+-
+-sub fabs {
+-    usage "fabs(x)" if @_ != 1;
+-    CORE::abs($_[0]);
+-}
+-
+-sub log {
+-    usage "log(x)" if @_ != 1;
+-    CORE::log($_[0]);
+-}
+-
+-sub pow {
+-    usage "pow(x,exponent)" if @_ != 2;
+-    $_[0] ** $_[1];
+-}
+-
+-sub sin {
+-    usage "sin(x)" if @_ != 1;
+-    CORE::sin($_[0]);
+-}
+-
+-sub sqrt {
+-    usage "sqrt(x)" if @_ != 1;
+-    CORE::sqrt($_[0]);
+-}
+-
+-sub getpwnam {
+-    usage "getpwnam(name)" if @_ != 1;
+-    CORE::getpwnam($_[0]);
+-}
+-
+-sub getpwuid {
+-    usage "getpwuid(uid)" if @_ != 1;
+-    CORE::getpwuid($_[0]);
+-}
+-
+-sub longjmp {
+-    unimpl "longjmp() is C-specific: use die instead";
+-}
+-
+-sub setjmp {
+-    unimpl "setjmp() is C-specific: use eval {} instead";
+-}
+-
+-sub siglongjmp {
+-    unimpl "siglongjmp() is C-specific: use die instead";
+-}
+-
+-sub sigsetjmp {
+-    unimpl "sigsetjmp() is C-specific: use eval {} instead";
+-}
+-
+-sub kill {
+-    usage "kill(pid, sig)" if @_ != 2;
+-    CORE::kill $_[1], $_[0];
+-}
+-
+-sub raise {
+-    usage "raise(sig)" if @_ != 1;
+-    CORE::kill $_[0], $$;	# Is this good enough?
+-}
+-
+-sub offsetof {
+-    unimpl "offsetof() is C-specific, stopped";
+-}
+-
+-sub clearerr {
+-    redef "IO::Handle::clearerr()";
+-}
+-
+-sub fclose {
+-    redef "IO::Handle::close()";
+-}
+-
+-sub fdopen {
+-    redef "IO::Handle::new_from_fd()";
+-}
+-
+-sub feof {
+-    redef "IO::Handle::eof()";
+-}
+-
+-sub fgetc {
+-    redef "IO::Handle::getc()";
+-}
+-
+-sub fgets {
+-    redef "IO::Handle::gets()";
+-}
+-
+-sub fileno {
+-    redef "IO::Handle::fileno()";
+-}
+-
+-sub fopen {
+-    redef "IO::File::open()";
+-}
+-
+-sub fprintf {
+-    unimpl "fprintf() is C-specific--use printf instead";
+-}
+-
+-sub fputc {
+-    unimpl "fputc() is C-specific--use print instead";
+-}
+-
+-sub fputs {
+-    unimpl "fputs() is C-specific--use print instead";
+-}
+-
+-sub fread {
+-    unimpl "fread() is C-specific--use read instead";
+-}
+-
+-sub freopen {
+-    unimpl "freopen() is C-specific--use open instead";
+-}
+-
+-sub fscanf {
+-    unimpl "fscanf() is C-specific--use <> and regular expressions instead";
+-}
+-
+-sub fseek {
+-    redef "IO::Seekable::seek()";
+-}
+-
+-sub fsync {
+-    redef "IO::Handle::sync()";
+-}
+-
+-sub ferror {
+-    redef "IO::Handle::error()";
+-}
+-
+-sub fflush {
+-    redef "IO::Handle::flush()";
+-}
+-
+-sub fgetpos {
+-    redef "IO::Seekable::getpos()";
+-}
+-
+-sub fsetpos {
+-    redef "IO::Seekable::setpos()";
+-}
+-
+-sub ftell {
+-    redef "IO::Seekable::tell()";
+-}
+-
+-sub fwrite {
+-    unimpl "fwrite() is C-specific--use print instead";
+-}
+-
+-sub getc {
+-    usage "getc(handle)" if @_ != 1;
+-    CORE::getc($_[0]);
+-}
+-
+-sub getchar {
+-    usage "getchar()" if @_ != 0;
+-    CORE::getc(STDIN);
+-}
+-
+-sub gets {
+-    usage "gets()" if @_ != 0;
+-    scalar <STDIN>;
+-}
+-
+-sub perror {
+-    print STDERR "@_: " if @_;
+-    print STDERR $!,"\n";
+-}
+-
+-sub printf {
+-    usage "printf(pattern, args...)" if @_ < 1;
+-    CORE::printf STDOUT @_;
+-}
+-
+-sub putc {
+-    unimpl "putc() is C-specific--use print instead";
+-}
+-
+-sub putchar {
+-    unimpl "putchar() is C-specific--use print instead";
+-}
+-
+-sub puts {
+-    unimpl "puts() is C-specific--use print instead";
+-}
+-
+-sub remove {
+-    usage "remove(filename)" if @_ != 1;
+-    (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0]);
+-}
+-
+-sub rename {
+-    usage "rename(oldfilename, newfilename)" if @_ != 2;
+-    CORE::rename($_[0], $_[1]);
+-}
+-
+-sub rewind {
+-    usage "rewind(filehandle)" if @_ != 1;
+-    CORE::seek($_[0],0,0);
+-}
+-
+-sub scanf {
+-    unimpl "scanf() is C-specific--use <> and regular expressions instead";
+-}
+-
+-sub sprintf {
+-    usage "sprintf(pattern,args)" if @_ == 0;
+-    CORE::sprintf(shift,@_);
+-}
+-
+-sub sscanf {
+-    unimpl "sscanf() is C-specific--use regular expressions instead";
+-}
+-
+-sub tmpfile {
+-    redef "IO::File::new_tmpfile()";
+-}
+-
+-sub ungetc {
+-    redef "IO::Handle::ungetc()";
+-}
+-
+-sub vfprintf {
+-    unimpl "vfprintf() is C-specific";
+-}
+-
+-sub vprintf {
+-    unimpl "vprintf() is C-specific";
+-}
+-
+-sub vsprintf {
+-    unimpl "vsprintf() is C-specific";
+-}
+-
+-sub abs {
+-    usage "abs(x)" if @_ != 1;
+-    CORE::abs($_[0]);
+-}
+-
+-sub atexit {
+-    unimpl "atexit() is C-specific: use END {} instead";
+-}
+-
+-sub atof {
+-    unimpl "atof() is C-specific, stopped";
+-}
+-
+-sub atoi {
+-    unimpl "atoi() is C-specific, stopped";
+-}
+-
+-sub atol {
+-    unimpl "atol() is C-specific, stopped";
+-}
+-
+-sub bsearch {
+-    unimpl "bsearch() not supplied";
+-}
+-
+-sub calloc {
+-    unimpl "calloc() is C-specific, stopped";
+-}
+-
+-sub div {
+-    unimpl "div() is C-specific, use /, % and int instead";
+-}
+-
+-sub exit {
+-    usage "exit(status)" if @_ != 1;
+-    CORE::exit($_[0]);
+-}
+-
+-sub free {
+-    unimpl "free() is C-specific, stopped";
+-}
+-
+-sub getenv {
+-    usage "getenv(name)" if @_ != 1;
+-    $ENV{$_[0]};
+-}
+-
+-sub labs {
+-    unimpl "labs() is C-specific, use abs instead";
+-}
+-
+-sub ldiv {
+-    unimpl "ldiv() is C-specific, use /, % and int instead";
+-}
+-
+-sub malloc {
+-    unimpl "malloc() is C-specific, stopped";
+-}
+-
+-sub qsort {
+-    unimpl "qsort() is C-specific, use sort instead";
+-}
+-
+-sub rand {
+-    unimpl "rand() is non-portable, use Perl's rand instead";
+-}
+-
+-sub realloc {
+-    unimpl "realloc() is C-specific, stopped";
+-}
+-
+-sub srand {
+-    unimpl "srand()";
+-}
+-
+-sub system {
+-    usage "system(command)" if @_ != 1;
+-    CORE::system($_[0]);
+-}
+-
+-sub memchr {
+-    unimpl "memchr() is C-specific, use index() instead";
+-}
+-
+-sub memcmp {
+-    unimpl "memcmp() is C-specific, use eq instead";
+-}
+-
+-sub memcpy {
+-    unimpl "memcpy() is C-specific, use = instead";
+-}
+-
+-sub memmove {
+-    unimpl "memmove() is C-specific, use = instead";
+-}
+-
+-sub memset {
+-    unimpl "memset() is C-specific, use x instead";
+-}
+-
+-sub strcat {
+-    unimpl "strcat() is C-specific, use .= instead";
+-}
+-
+-sub strchr {
+-    unimpl "strchr() is C-specific, use index() instead";
+-}
+-
+-sub strcmp {
+-    unimpl "strcmp() is C-specific, use eq instead";
+-}
+-
+-sub strcpy {
+-    unimpl "strcpy() is C-specific, use = instead";
+-}
+-
+-sub strcspn {
+-    unimpl "strcspn() is C-specific, use regular expressions instead";
+-}
+-
+-sub strerror {
+-    usage "strerror(errno)" if @_ != 1;
+-    local $! = $_[0];
+-    $! . "";
+-}
+-
+-sub strlen {
+-    unimpl "strlen() is C-specific, use length instead";
+-}
+-
+-sub strncat {
+-    unimpl "strncat() is C-specific, use .= instead";
+-}
+-
+-sub strncmp {
+-    unimpl "strncmp() is C-specific, use eq instead";
+-}
+-
+-sub strncpy {
+-    unimpl "strncpy() is C-specific, use = instead";
+-}
+-
+-sub strpbrk {
+-    unimpl "strpbrk() is C-specific, stopped";
+-}
+-
+-sub strrchr {
+-    unimpl "strrchr() is C-specific, use rindex() instead";
+-}
+-
+-sub strspn {
+-    unimpl "strspn() is C-specific, stopped";
+-}
+-
+-sub strstr {
+-    usage "strstr(big, little)" if @_ != 2;
+-    CORE::index($_[0], $_[1]);
+-}
+-
+-sub strtok {
+-    unimpl "strtok() is C-specific, stopped";
+-}
+-
+-sub chmod {
+-    usage "chmod(mode, filename)" if @_ != 2;
+-    CORE::chmod($_[0], $_[1]);
+-}
+-
+-sub fstat {
+-    usage "fstat(fd)" if @_ != 1;
+-    local *TMP;
+-    CORE::open(TMP, "<&$_[0]");		# Gross.
+-    my @l = CORE::stat(TMP);
+-    CORE::close(TMP);
+-    @l;
+-}
+-
+-sub mkdir {
+-    usage "mkdir(directoryname, mode)" if @_ != 2;
+-    CORE::mkdir($_[0], $_[1]);
+-}
+-
+-sub stat {
+-    usage "stat(filename)" if @_ != 1;
+-    CORE::stat($_[0]);
+-}
+-
+-sub umask {
+-    usage "umask(mask)" if @_ != 1;
+-    CORE::umask($_[0]);
+-}
+-
+-sub wait {
+-    usage "wait()" if @_ != 0;
+-    CORE::wait();
+-}
+-
+-sub waitpid {
+-    usage "waitpid(pid, options)" if @_ != 2;
+-    CORE::waitpid($_[0], $_[1]);
+-}
+-
+-sub gmtime {
+-    usage "gmtime(time)" if @_ != 1;
+-    CORE::gmtime($_[0]);
+-}
+-
+-sub localtime {
+-    usage "localtime(time)" if @_ != 1;
+-    CORE::localtime($_[0]);
+-}
+-
+-sub time {
+-    usage "time()" if @_ != 0;
+-    CORE::time;
+-}
+-
+-sub alarm {
+-    usage "alarm(seconds)" if @_ != 1;
+-    CORE::alarm($_[0]);
+-}
+-
+-sub chdir {
+-    usage "chdir(directory)" if @_ != 1;
+-    CORE::chdir($_[0]);
+-}
+-
+-sub chown {
+-    usage "chown(uid, gid, filename)" if @_ != 3;
+-    CORE::chown($_[0], $_[1], $_[2]);
+-}
+-
+-sub execl {
+-    unimpl "execl() is C-specific, stopped";
+-}
+-
+-sub execle {
+-    unimpl "execle() is C-specific, stopped";
+-}
+-
+-sub execlp {
+-    unimpl "execlp() is C-specific, stopped";
+-}
+-
+-sub execv {
+-    unimpl "execv() is C-specific, stopped";
+-}
+-
+-sub execve {
+-    unimpl "execve() is C-specific, stopped";
+-}
+-
+-sub execvp {
+-    unimpl "execvp() is C-specific, stopped";
+-}
+-
+-sub fork {
+-    usage "fork()" if @_ != 0;
+-    CORE::fork;
+-}
+-
+-sub getegid {
+-    usage "getegid()" if @_ != 0;
+-    $) + 0;
+-}
+-
+-sub geteuid {
+-    usage "geteuid()" if @_ != 0;
+-    $> + 0;
+-}
+-
+-sub getgid {
+-    usage "getgid()" if @_ != 0;
+-    $( + 0;
+-}
+-
+-sub getgroups {
+-    usage "getgroups()" if @_ != 0;
+-    my %seen;
+-    grep(!$seen{$_}++, split(' ', $) ));
+-}
+-
+-sub getlogin {
+-    usage "getlogin()" if @_ != 0;
+-    CORE::getlogin();
+-}
+-
+-sub getpgrp {
+-    usage "getpgrp()" if @_ != 0;
+-    CORE::getpgrp;
+-}
+-
+-sub getpid {
+-    usage "getpid()" if @_ != 0;
+-    $$;
+-}
+-
+-sub getppid {
+-    usage "getppid()" if @_ != 0;
+-    CORE::getppid;
+-}
+-
+-sub getuid {
+-    usage "getuid()" if @_ != 0;
+-    $<;
+-}
+-
+-sub isatty {
+-    usage "isatty(filehandle)" if @_ != 1;
+-    -t $_[0];
+-}
+-
+-sub link {
+-    usage "link(oldfilename, newfilename)" if @_ != 2;
+-    CORE::link($_[0], $_[1]);
+-}
+-
+-sub rmdir {
+-    usage "rmdir(directoryname)" if @_ != 1;
+-    CORE::rmdir($_[0]);
+-}
+-
+-sub setbuf {
+-    redef "IO::Handle::setbuf()";
+-}
+-
+-sub setvbuf {
+-    redef "IO::Handle::setvbuf()";
+-}
+-
+-sub sleep {
+-    usage "sleep(seconds)" if @_ != 1;
+-    $_[0] - CORE::sleep($_[0]);
+-}
+-
+-sub unlink {
+-    usage "unlink(filename)" if @_ != 1;
+-    CORE::unlink($_[0]);
+-}
+-
+-sub utime {
+-    usage "utime(filename, atime, mtime)" if @_ != 3;
+-    CORE::utime($_[1], $_[2], $_[0]);
+-}
+-
+-sub load_imports {
+-%EXPORT_TAGS = (
+-
+-    assert_h =>	[qw(assert NDEBUG)],
+-
+-    ctype_h =>	[qw(isalnum isalpha iscntrl isdigit isgraph islower
+-		isprint ispunct isspace isupper isxdigit tolower toupper)],
+-
+-    dirent_h =>	[],
+-
+-    errno_h =>	[qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT
+-		EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED
+-		ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT
+-		EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS
+-		EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
+-		EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH
+-		ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM
+-		ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR
+-		ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
+-		EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE
+-		ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT
+-		ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY
+-		EUSERS EWOULDBLOCK EXDEV errno)],
+-
+-    fcntl_h =>	[qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK
+-		F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK
+-		O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK
+-		O_RDONLY O_RDWR O_TRUNC O_WRONLY
+-		creat
+-		SEEK_CUR SEEK_END SEEK_SET
+-		S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
+-		S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID
+-		S_IWGRP S_IWOTH S_IWUSR)],
+-
+-    float_h =>	[qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG
+-		DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP
+-		DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP
+-		FLT_DIG FLT_EPSILON FLT_MANT_DIG
+-		FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP
+-		FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP
+-		FLT_RADIX FLT_ROUNDS
+-		LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG
+-		LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP
+-		LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)],
+-
+-    grp_h =>	[],
+-
+-    limits_h =>	[qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX
+-		INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON
+-		MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX
+-		PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN
+-		SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX
+-		ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX
+-		_POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT
+-		_POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX
+-		_POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX
+-		_POSIX_STREAM_MAX _POSIX_TZNAME_MAX)],
+-
+-    locale_h =>	[qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES
+-		    LC_MONETARY LC_NUMERIC LC_TIME NULL
+-		    localeconv setlocale)],
+-
+-    math_h =>	[qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod
+-		frexp ldexp log10 modf pow sinh tan tanh)],
+-
+-    pwd_h =>	[],
+-
+-    setjmp_h =>	[qw(longjmp setjmp siglongjmp sigsetjmp)],
+-
+-    signal_h =>	[qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK
+-		SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM
+-		SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL
+-		SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP
+-		SIGTERM SIGTSTP SIGTTIN	SIGTTOU SIGUSR1 SIGUSR2
+-		SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK
+-		raise sigaction signal sigpending sigprocmask sigsuspend)],
+-
+-    stdarg_h =>	[],
+-
+-    stddef_h =>	[qw(NULL offsetof)],
+-
+-    stdio_h =>	[qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid
+-		L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET
+-		STREAM_MAX TMP_MAX stderr stdin stdout
+-		clearerr fclose fdopen feof ferror fflush fgetc fgetpos
+-		fgets fopen fprintf fputc fputs fread freopen
+-		fscanf fseek fsetpos ftell fwrite getchar gets
+-		perror putc putchar puts remove rewind
+-		scanf setbuf setvbuf sscanf tmpfile tmpnam
+-		ungetc vfprintf vprintf vsprintf)],
+-
+-    stdlib_h =>	[qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX
+-		abort atexit atof atoi atol bsearch calloc div
+-		free getenv labs ldiv malloc mblen mbstowcs mbtowc
+-		qsort realloc strtod strtol strtoul wcstombs wctomb)],
+-
+-    string_h =>	[qw(NULL memchr memcmp memcpy memmove memset strcat
+-		strchr strcmp strcoll strcpy strcspn strerror strlen
+-		strncat strncmp strncpy strpbrk strrchr strspn strstr
+-		strtok strxfrm)],
+-
+-    sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
+-		S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG
+-		S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
+-		fstat mkfifo)],
+-
+-    sys_times_h => [],
+-
+-    sys_types_h => [],
+-
+-    sys_utsname_h => [qw(uname)],
+-
+-    sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED
+-		WNOHANG WSTOPSIG WTERMSIG WUNTRACED)],
+-
+-    termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400
+-		B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL
+-		CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK
+-		ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR
+-		INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST
+-		PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION
+-		TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW
+-		TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART
+-		VSTOP VSUSP VTIME
+-		cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain
+-		tcflow tcflush tcgetattr tcsendbreak tcsetattr )],
+-
+-    time_h =>	[qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime
+-		difftime mktime strftime tzset tzname)],
+-
+-    unistd_h =>	[qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET
+-		STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK
+-		_PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON
+-		_PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX
+-		_PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED
+-		_POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS
+-		_POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX
+-		_SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL
+-		_SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS
+-		_SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
+-		_exit access ctermid cuserid
+-		dup2 dup execl execle execlp execv execve execvp
+-		fpathconf fsync getcwd getegid geteuid getgid getgroups
+-		getpid getuid isatty lseek pathconf pause setgid setpgid
+-		setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)],
+-
+-    utime_h =>	[],
+-
+-);
+-
+-# Exporter::export_tags();
+-{
+-  # De-duplicate the export list: 
+-  my %export;
+-  @export{map {@$_} values %EXPORT_TAGS} = ();
+-  # Doing the de-dup with a temporary hash has the advantage that the SVs in
+-  # @EXPORT are actually shared hash key sacalars, which will save some memory.
+-  push @EXPORT, keys %export;
+-}
+-
+-@EXPORT_OK = qw(
+-		abs
+-		alarm
+-		atan2
+-		chdir
+-		chmod
+-		chown
+-		close
+-		closedir
+-		cos
+-		exit
+-		exp
+-		fcntl
+-		fileno
+-		fork
+-		getc
+-		getgrgid
+-		getgrnam
+-		getlogin
+-		getpgrp
+-		getppid
+-		getpwnam
+-		getpwuid
+-		gmtime
+-		isatty
+-		kill
+-		lchown
+-		link
+-		localtime
+-		log
+-		mkdir
+-		nice
+-		open
+-		opendir
+-		pipe
+-		printf
+-		rand
+-		read
+-		readdir
+-		rename
+-		rewinddir
+-		rmdir
+-		sin
+-		sleep
+-		sprintf
+-		sqrt
+-		srand
+-		stat
+-		system
+-		time
+-		times
+-		umask
+-		unlink
+-		utime
+-		wait
+-		waitpid
+-		write
+-);
+-
+-require Exporter;
+-}
+-
+-package POSIX::SigAction;
+-
+-sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] }
+-sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} };
+-sub mask    { $_[0]->{MASK}    = $_[1] if @_ > 1; $_[0]->{MASK} };
+-sub flags   { $_[0]->{FLAGS}   = $_[1] if @_ > 1; $_[0]->{FLAGS} };
+-sub safe    { $_[0]->{SAFE}    = $_[1] if @_ > 1; $_[0]->{SAFE} };
+-
+-package POSIX::SigRt;
+-
+-
+-sub _init {
+-    $_SIGRTMIN = &POSIX::SIGRTMIN;
+-    $_SIGRTMAX = &POSIX::SIGRTMAX;
+-    $_sigrtn   = $_SIGRTMAX - $_SIGRTMIN;
+-}
+-
+-sub _croak {
+-    &_init unless defined $_sigrtn;
+-    die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0;
+-}
+-
+-sub _getsig {
+-    &_croak;
+-    my $rtsig = $_[0];
+-    # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C.
+-    $rtsig = $_SIGRTMIN + ($1 || 0)
+-	if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/;
+-    return $rtsig;
+-}
+-
+-sub _exist {
+-    my $rtsig = _getsig($_[1]);
+-    my $ok    = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX;
+-    ($rtsig, $ok);
+-}
+-
+-sub _check {
+-    my ($rtsig, $ok) = &_exist;
+-    die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)"
+-	unless $ok;
+-    return $rtsig;
+-}
+-
+-sub new {
+-    my ($rtsig, $handler, $flags) = @_;
+-    my $sigset = POSIX::SigSet->new($rtsig);
+-    my $sigact = POSIX::SigAction->new($handler,
+-				       $sigset,
+-				       $flags);
+-    POSIX::sigaction($rtsig, $sigact);
+-}
+-
+-sub EXISTS { &_exist }
+-sub FETCH  { my $rtsig = &_check;
+-	     my $oa = POSIX::SigAction->new();
+-	     POSIX::sigaction($rtsig, undef, $oa);
+-	     return $oa->{HANDLER} }
+-sub STORE  { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) }
+-sub DELETE { delete $SIG{ &_check } }
+-sub CLEAR  { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } }
+-sub SCALAR { &_croak; $_sigrtn + 1 }
+diff --git a/ext/POSIX/POSIX.pod b/ext/POSIX/POSIX.pod
+deleted file mode 100644
+index 64852e9..0000000
+--- a/ext/POSIX/POSIX.pod
++++ /dev/null
+@@ -1,2218 +0,0 @@
+-=head1 NAME
+-
+-POSIX - Perl interface to IEEE Std 1003.1
+-
+-=head1 SYNOPSIS
+-
+-    use POSIX;
+-    use POSIX qw(setsid);
+-    use POSIX qw(:errno_h :fcntl_h);
+-
+-    printf "EINTR is %d\n", EINTR;
+-
+-    $sess_id = POSIX::setsid();
+-
+-    $fd = POSIX::open($path, O_CREAT|O_EXCL|O_WRONLY, 0644);
+-	# note: that's a filedescriptor, *NOT* a filehandle
+-
+-=head1 DESCRIPTION
+-
+-The POSIX module permits you to access all (or nearly all) the standard
+-POSIX 1003.1 identifiers.  Many of these identifiers have been given Perl-ish
+-interfaces.
+-
+-I<Everything is exported by default> with the exception of any POSIX
+-functions with the same name as a built-in Perl function, such as
+-C<abs>, C<alarm>, C<rmdir>, C<write>, etc.., which will be exported
+-only if you ask for them explicitly.  This is an unfortunate backwards
+-compatibility feature.  You can stop the exporting by saying C<use
+-POSIX ()> and then use the fully qualified names (ie. C<POSIX::SEEK_END>).
+-
+-This document gives a condensed list of the features available in the POSIX
+-module.  Consult your operating system's manpages for general information on
+-most features.  Consult L<perlfunc> for functions which are noted as being
+-identical to Perl's builtin functions.
+-
+-The first section describes POSIX functions from the 1003.1 specification.
+-The second section describes some classes for signal objects, TTY objects,
+-and other miscellaneous objects.  The remaining sections list various
+-constants and macros in an organization which roughly follows IEEE Std
+-1003.1b-1993.
+-
+-=head1 NOTE
+-
+-The POSIX module is probably the most complex Perl module supplied with
+-the standard distribution.  It incorporates autoloading, namespace games,
+-and dynamic loading of code that's in Perl, C, or both.  It's a great
+-source of wisdom.
+-
+-=head1 CAVEATS
+-
+-A few functions are not implemented because they are C specific.  If you
+-attempt to call these, they will print a message telling you that they
+-aren't implemented, and suggest using the Perl equivalent should one
+-exist.  For example, trying to access the setjmp() call will elicit the
+-message "setjmp() is C-specific: use eval {} instead".
+-
+-Furthermore, some evil vendors will claim 1003.1 compliance, but in fact
+-are not so: they will not pass the PCTS (POSIX Compliance Test Suites).
+-For example, one vendor may not define EDEADLK, or the semantics of the
+-errno values set by open(2) might not be quite right.  Perl does not
+-attempt to verify POSIX compliance.  That means you can currently
+-successfully say "use POSIX",  and then later in your program you find
+-that your vendor has been lax and there's no usable ICANON macro after
+-all.  This could be construed to be a bug.
+-
+-=head1 FUNCTIONS
+-
+-=over 8
+-
+-=item _exit
+-
+-This is identical to the C function C<_exit()>.  It exits the program
+-immediately which means among other things buffered I/O is B<not> flushed.
+-
+-Note that when using threads and in Linux this is B<not> a good way to
+-exit a thread because in Linux processes and threads are kind of the
+-same thing (Note: while this is the situation in early 2003 there are
+-projects under way to have threads with more POSIXly semantics in Linux).
+-If you want not to return from a thread, detach the thread.
+-
+-=item abort
+-
+-This is identical to the C function C<abort()>.  It terminates the
+-process with a C<SIGABRT> signal unless caught by a signal handler or
+-if the handler does not return normally (it e.g.  does a C<longjmp>).
+-
+-=item abs
+-
+-This is identical to Perl's builtin C<abs()> function, returning
+-the absolute value of its numerical argument.
+-
+-=item access
+-
+-Determines the accessibility of a file.
+-
+-	if( POSIX::access( "/", &POSIX::R_OK ) ){
+-		print "have read permission\n";
+-	}
+-
+-Returns C<undef> on failure.  Note: do not use C<access()> for
+-security purposes.  Between the C<access()> call and the operation
+-you are preparing for the permissions might change: a classic
+-I<race condition>.
+-
+-=item acos
+-
+-This is identical to the C function C<acos()>, returning
+-the arcus cosine of its numerical argument.  See also L<Math::Trig>.
+-
+-=item alarm
+-
+-This is identical to Perl's builtin C<alarm()> function,
+-either for arming or disarming the C<SIGARLM> timer.
+-
+-=item asctime
+-
+-This is identical to the C function C<asctime()>.  It returns
+-a string of the form
+-
+-	"Fri Jun  2 18:22:13 2000\n\0"
+-
+-and it is called thusly
+-
+-	$asctime = asctime($sec, $min, $hour, $mday, $mon, $year,
+-			   $wday, $yday, $isdst);
+-
+-The C<$mon> is zero-based: January equals C<0>.  The C<$year> is
+-1900-based: 2001 equals C<101>.  C<$wday> and C<$yday> default to zero
+-(and are usually ignored anyway), and C<$isdst> defaults to -1.
+-
+-=item asin
+-
+-This is identical to the C function C<asin()>, returning
+-the arcus sine of its numerical argument.  See also L<Math::Trig>.
+-
+-=item assert
+-
+-Unimplemented, but you can use L<perlfunc/die> and the L<Carp> module
+-to achieve similar things.
+-
+-=item atan
+-
+-This is identical to the C function C<atan()>, returning the
+-arcus tangent of its numerical argument.  See also L<Math::Trig>.
+-
+-=item atan2
+-
+-This is identical to Perl's builtin C<atan2()> function, returning
+-the arcus tangent defined by its two numerical arguments, the I<y>
+-coordinate and the I<x> coordinate.  See also L<Math::Trig>.
+-
+-=item atexit
+-
+-atexit() is C-specific: use C<END {}> instead, see L<perlsub>.
+-
+-=item atof
+-
+-atof() is C-specific.  Perl converts strings to numbers transparently.
+-If you need to force a scalar to a number, add a zero to it.
+-
+-=item atoi
+-
+-atoi() is C-specific.  Perl converts strings to numbers transparently.
+-If you need to force a scalar to a number, add a zero to it.
+-If you need to have just the integer part, see L<perlfunc/int>.
+-
+-=item atol
+-
+-atol() is C-specific.  Perl converts strings to numbers transparently.
+-If you need to force a scalar to a number, add a zero to it.
+-If you need to have just the integer part, see L<perlfunc/int>.
+-
+-=item bsearch
+-
+-bsearch() not supplied.  For doing binary search on wordlists,
+-see L<Search::Dict>.
+-
+-=item calloc
+-
+-calloc() is C-specific.  Perl does memory management transparently.
+-
+-=item ceil
+-
+-This is identical to the C function C<ceil()>, returning the smallest
+-integer value greater than or equal to the given numerical argument.
+-
+-=item chdir
+-
+-This is identical to Perl's builtin C<chdir()> function, allowing
+-one to change the working (default) directory, see L<perlfunc/chdir>.
+-
+-=item chmod
+-
+-This is identical to Perl's builtin C<chmod()> function, allowing
+-one to change file and directory permissions, see L<perlfunc/chmod>.
+-
+-=item chown
+-
+-This is identical to Perl's builtin C<chown()> function, allowing one
+-to change file and directory owners and groups, see L<perlfunc/chown>.
+-
+-=item clearerr
+-
+-Use the method C<IO::Handle::clearerr()> instead, to reset the error
+-state (if any) and EOF state (if any) of the given stream.
+-
+-=item clock
+-
+-This is identical to the C function C<clock()>, returning the
+-amount of spent processor time in microseconds.
+-
+-=item close
+-
+-Close the file.  This uses file descriptors such as those obtained by calling
+-C<POSIX::open>.
+-
+-	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
+-	POSIX::close( $fd );
+-
+-Returns C<undef> on failure.
+-
+-See also L<perlfunc/close>.
+-
+-=item closedir
+-
+-This is identical to Perl's builtin C<closedir()> function for closing
+-a directory handle, see L<perlfunc/closedir>.
+-
+-=item cos
+-
+-This is identical to Perl's builtin C<cos()> function, for returning
+-the cosine of its numerical argument, see L<perlfunc/cos>.
+-See also L<Math::Trig>.
+-
+-=item cosh
+-
+-This is identical to the C function C<cosh()>, for returning
+-the hyperbolic cosine of its numeric argument.  See also L<Math::Trig>.
+-
+-=item creat
+-
+-Create a new file.  This returns a file descriptor like the ones returned by
+-C<POSIX::open>.  Use C<POSIX::close> to close the file.
+-
+-	$fd = POSIX::creat( "foo", 0611 );
+-	POSIX::close( $fd );
+-
+-See also L<perlfunc/sysopen> and its C<O_CREAT> flag.
+-
+-=item ctermid
+-
+-Generates the path name for the controlling terminal.
+-
+-	$path = POSIX::ctermid();
+-
+-=item ctime
+-
+-This is identical to the C function C<ctime()> and equivalent
+-to C<asctime(localtime(...))>, see L</asctime> and L</localtime>.
+-
+-=item cuserid
+-
+-Get the login name of the owner of the current process.
+-
+-	$name = POSIX::cuserid();
+-
+-=item difftime
+-
+-This is identical to the C function C<difftime()>, for returning
+-the time difference (in seconds) between two times (as returned
+-by C<time()>), see L</time>.
+-
+-=item div
+-
+-div() is C-specific, use L<perlfunc/int> on the usual C</> division and
+-the modulus C<%>.
+-
+-=item dup
+-
+-This is similar to the C function C<dup()>, for duplicating a file
+-descriptor.
+-
+-This uses file descriptors such as those obtained by calling
+-C<POSIX::open>.
+-
+-Returns C<undef> on failure.
+-
+-=item dup2
+-
+-This is similar to the C function C<dup2()>, for duplicating a file
+-descriptor to an another known file descriptor.
+-
+-This uses file descriptors such as those obtained by calling
+-C<POSIX::open>.
+-
+-Returns C<undef> on failure.
+-
+-=item errno
+-
+-Returns the value of errno.
+-
+-	$errno = POSIX::errno();
+-
+-This identical to the numerical values of the C<$!>, see L<perlvar/$ERRNO>.
+-
+-=item execl
+-
+-execl() is C-specific, see L<perlfunc/exec>.
+-
+-=item execle
+-
+-execle() is C-specific, see L<perlfunc/exec>.
+-
+-=item execlp
+-
+-execlp() is C-specific, see L<perlfunc/exec>.
+-
+-=item execv
+-
+-execv() is C-specific, see L<perlfunc/exec>.
+-
+-=item execve
+-
+-execve() is C-specific, see L<perlfunc/exec>.
+-
+-=item execvp
+-
+-execvp() is C-specific, see L<perlfunc/exec>.
+-
+-=item exit
+-
+-This is identical to Perl's builtin C<exit()> function for exiting the
+-program, see L<perlfunc/exit>.
+-
+-=item exp
+-
+-This is identical to Perl's builtin C<exp()> function for
+-returning the exponent (I<e>-based) of the numerical argument,
+-see L<perlfunc/exp>.
+-
+-=item fabs
+-
+-This is identical to Perl's builtin C<abs()> function for returning
+-the absolute value of the numerical argument, see L<perlfunc/abs>.
+-
+-=item fclose
+-
+-Use method C<IO::Handle::close()> instead, or see L<perlfunc/close>.
+-
+-=item fcntl
+-
+-This is identical to Perl's builtin C<fcntl()> function,
+-see L<perlfunc/fcntl>.
+-
+-=item fdopen
+-
+-Use method C<IO::Handle::new_from_fd()> instead, or see L<perlfunc/open>.
+-
+-=item feof
+-
+-Use method C<IO::Handle::eof()> instead, or see L<perlfunc/eof>.
+-
+-=item ferror
+-
+-Use method C<IO::Handle::error()> instead.
+-
+-=item fflush
+-
+-Use method C<IO::Handle::flush()> instead.
+-See also L<perlvar/$OUTPUT_AUTOFLUSH>.
+-
+-=item fgetc
+-
+-Use method C<IO::Handle::getc()> instead, or see L<perlfunc/read>.
+-
+-=item fgetpos
+-
+-Use method C<IO::Seekable::getpos()> instead, or see L<L/seek>.
+-
+-=item fgets
+-
+-Use method C<IO::Handle::gets()> instead.  Similar to E<lt>E<gt>, also known
+-as L<perlfunc/readline>.
+-
+-=item fileno
+-
+-Use method C<IO::Handle::fileno()> instead, or see L<perlfunc/fileno>.
+-
+-=item floor
+-
+-This is identical to the C function C<floor()>, returning the largest
+-integer value less than or equal to the numerical argument.
+-
+-=item fmod
+-
+-This is identical to the C function C<fmod()>.
+-
+-	$r = fmod($x, $y);
+-
+-It returns the remainder C<$r = $x - $n*$y>, where C<$n = trunc($x/$y)>.
+-The C<$r> has the same sign as C<$x> and magnitude (absolute value)
+-less than the magnitude of C<$y>.
+-
+-=item fopen
+-
+-Use method C<IO::File::open()> instead, or see L<perlfunc/open>.
+-
+-=item fork
+-
+-This is identical to Perl's builtin C<fork()> function
+-for duplicating the current process, see L<perlfunc/fork>
+-and L<perlfork> if you are in Windows.
+-
+-=item fpathconf
+-
+-Retrieves the value of a configurable limit on a file or directory.  This
+-uses file descriptors such as those obtained by calling C<POSIX::open>.
+-
+-The following will determine the maximum length of the longest allowable
+-pathname on the filesystem which holds C</var/foo>.
+-
+-	$fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY );
+-	$path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX );
+-
+-Returns C<undef> on failure.
+-
+-=item fprintf
+-
+-fprintf() is C-specific, see L<perlfunc/printf> instead.
+-
+-=item fputc
+-
+-fputc() is C-specific, see L<perlfunc/print> instead.
+-
+-=item fputs
+-
+-fputs() is C-specific, see L<perlfunc/print> instead.
+-
+-=item fread
+-
+-fread() is C-specific, see L<perlfunc/read> instead.
+-
+-=item free
+-
+-free() is C-specific.  Perl does memory management transparently.
+-
+-=item freopen
+-
+-freopen() is C-specific, see L<perlfunc/open> instead.
+-
+-=item frexp
+-
+-Return the mantissa and exponent of a floating-point number.
+-
+-	($mantissa, $exponent) = POSIX::frexp( 1.234e56 );
+-
+-=item fscanf
+-
+-fscanf() is C-specific, use E<lt>E<gt> and regular expressions instead.
+-
+-=item fseek
+-
+-Use method C<IO::Seekable::seek()> instead, or see L<perlfunc/seek>.
+-
+-=item fsetpos
+-
+-Use method C<IO::Seekable::setpos()> instead, or seek L<perlfunc/seek>.
+-
+-=item fstat
+-
+-Get file status.  This uses file descriptors such as those obtained by
+-calling C<POSIX::open>.  The data returned is identical to the data from
+-Perl's builtin C<stat> function.
+-
+-	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
+-	@stats = POSIX::fstat( $fd );
+-
+-=item fsync
+-
+-Use method C<IO::Handle::sync()> instead.
+-
+-=item ftell
+-
+-Use method C<IO::Seekable::tell()> instead, or see L<perlfunc/tell>.
+-
+-=item fwrite
+-
+-fwrite() is C-specific, see L<perlfunc/print> instead.
+-
+-=item getc
+-
+-This is identical to Perl's builtin C<getc()> function,
+-see L<perlfunc/getc>.
+-
+-=item getchar
+-
+-Returns one character from STDIN.  Identical to Perl's C<getc()>,
+-see L<perlfunc/getc>.
+-
+-=item getcwd
+-
+-Returns the name of the current working directory.
+-See also L<Cwd>.
+-
+-=item getegid
+-
+-Returns the effective group identifier.  Similar to Perl' s builtin
+-variable C<$(>, see L<perlvar/$EGID>.
+-
+-=item getenv
+-
+-Returns the value of the specified environment variable.
+-The same information is available through the C<%ENV> array.
+-
+-=item geteuid
+-
+-Returns the effective user identifier.  Identical to Perl's builtin C<$E<gt>>
+-variable, see L<perlvar/$EUID>.
+-
+-=item getgid
+-
+-Returns the user's real group identifier.  Similar to Perl's builtin
+-variable C<$)>, see L<perlvar/$GID>.
+-
+-=item getgrgid
+-
+-This is identical to Perl's builtin C<getgrgid()> function for
+-returning group entries by group identifiers, see
+-L<perlfunc/getgrgid>.
+-
+-=item getgrnam
+-
+-This is identical to Perl's builtin C<getgrnam()> function for
+-returning group entries by group names, see L<perlfunc/getgrnam>.
+-
+-=item getgroups
+-
+-Returns the ids of the user's supplementary groups.  Similar to Perl's
+-builtin variable C<$)>, see L<perlvar/$GID>.
+-
+-=item getlogin
+-
+-This is identical to Perl's builtin C<getlogin()> function for
+-returning the user name associated with the current session, see
+-L<perlfunc/getlogin>.
+-
+-=item getpgrp
+-
+-This is identical to Perl's builtin C<getpgrp()> function for
+-returning the process group identifier of the current process, see
+-L<perlfunc/getpgrp>.
+-
+-=item getpid
+-
+-Returns the process identifier.  Identical to Perl's builtin
+-variable C<$$>, see L<perlvar/$PID>.
+-
+-=item getppid
+-
+-This is identical to Perl's builtin C<getppid()> function for
+-returning the process identifier of the parent process of the current
+-process , see L<perlfunc/getppid>.
+-
+-=item getpwnam
+-
+-This is identical to Perl's builtin C<getpwnam()> function for
+-returning user entries by user names, see L<perlfunc/getpwnam>.
+-
+-=item getpwuid
+-
+-This is identical to Perl's builtin C<getpwuid()> function for
+-returning user entries by user identifiers, see L<perlfunc/getpwuid>.
+-
+-=item gets
+-
+-Returns one line from C<STDIN>, similar to E<lt>E<gt>, also known
+-as the C<readline()> function, see L<perlfunc/readline>.
+-
+-B<NOTE>: if you have C programs that still use C<gets()>, be very
+-afraid.  The C<gets()> function is a source of endless grief because
+-it has no buffer overrun checks.  It should B<never> be used.  The
+-C<fgets()> function should be preferred instead.
+-
+-=item getuid
+-
+-Returns the user's identifier.  Identical to Perl's builtin C<$E<lt>> variable,
+-see L<perlvar/$UID>.
+-
+-=item gmtime
+-
+-This is identical to Perl's builtin C<gmtime()> function for
+-converting seconds since the epoch to a date in Greenwich Mean Time,
+-see L<perlfunc/gmtime>.
+-
+-=item isalnum
+-
+-This is identical to the C function, except that it can apply to a
+-single character or to a whole string.  Note that locale settings may
+-affect what characters are considered C<isalnum>.  Does not work on
+-Unicode characters code point 256 or higher.  Consider using regular
+-expressions and the C</[[:alnum:]]/> construct instead, or possibly
+-the C</\w/> construct.
+-
+-=item isalpha
+-
+-This is identical to the C function, except that it can apply to
+-a single character or to a whole string.  Note that locale settings
+-may affect what characters are considered C<isalpha>.  Does not work
+-on Unicode characters code point 256 or higher.  Consider using regular
+-expressions and the C</[[:alpha:]]/> construct instead.
+-
+-=item isatty
+-
+-Returns a boolean indicating whether the specified filehandle is connected
+-to a tty.  Similar to the C<-t> operator, see L<perlfunc/-X>.
+-
+-=item iscntrl
+-
+-This is identical to the C function, except that it can apply to
+-a single character or to a whole string.  Note that locale settings
+-may affect what characters are considered C<iscntrl>.  Does not work
+-on Unicode characters code point 256 or higher.  Consider using regular
+-expressions and the C</[[:cntrl:]]/> construct instead.
+-
+-=item isdigit
+-
+-This is identical to the C function, except that it can apply to
+-a single character or to a whole string.  Note that locale settings
+-may affect what characters are considered C<isdigit> (unlikely, but
+-still possible). Does not work on Unicode characters code point 256
+-or higher.  Consider using regular expressions and the C</[[:digit:]]/>
+-construct instead, or the C</\d/> construct.
+-
+-=item isgraph
+-
+-This is identical to the C function, except that it can apply to
+-a single character or to a whole string.  Note that locale settings
+-may affect what characters are considered C<isgraph>.  Does not work
+-on Unicode characters code point 256 or higher.  Consider using regular
+-expressions and the C</[[:graph:]]/> construct instead.
+-
+-=item islower
+-
+-This is identical to the C function, except that it can apply to
+-a single character or to a whole string.  Note that locale settings
+-may affect what characters are considered C<islower>.  Does not work
+-on Unicode characters code point 256 or higher.  Consider using regular
+-expressions and the C</[[:lower:]]/> construct instead.  Do B<not> use
+-C</[a-z]/>.
+-
+-=item isprint
+-
+-This is identical to the C function, except that it can apply to
+-a single character or to a whole string.  Note that locale settings
+-may affect what characters are considered C<isprint>.  Does not work
+-on Unicode characters code point 256 or higher.  Consider using regular
+-expressions and the C</[[:print:]]/> construct instead.
+-
+-=item ispunct
+-
+-This is identical to the C function, except that it can apply to
+-a single character or to a whole string.  Note that locale settings
+-may affect what characters are considered C<ispunct>.  Does not work
+-on Unicode characters code point 256 or higher.  Consider using regular
+-expressions and the C</[[:punct:]]/> construct instead.
+-
+-=item isspace
+-
+-This is identical to the C function, except that it can apply to
+-a single character or to a whole string.  Note that locale settings
+-may affect what characters are considered C<isspace>.  Does not work
+-on Unicode characters code point 256 or higher.  Consider using regular
+-expressions and the C</[[:space:]]/> construct instead, or the C</\s/>
+-construct.  (Note that C</\s/> and C</[[:space:]]/> are slightly
+-different in that C</[[:space:]]/> can normally match a vertical tab,
+-while C</\s/> does not.)
+-
+-=item isupper
+-
+-This is identical to the C function, except that it can apply to
+-a single character or to a whole string.  Note that locale settings
+-may affect what characters are considered C<isupper>.  Does not work
+-on Unicode characters code point 256 or higher.  Consider using regular
+-expressions and the C</[[:upper:]]/> construct instead.  Do B<not> use
+-C</[A-Z]/>.
+-
+-=item isxdigit
+-
+-This is identical to the C function, except that it can apply to a single
+-character or to a whole string.  Note that locale settings may affect what
+-characters are considered C<isxdigit> (unlikely, but still possible).
+-Does not work on Unicode characters code point 256 or higher.
+-Consider using regular expressions and the C</[[:xdigit:]]/>
+-construct instead, or simply C</[0-9a-f]/i>.
+-
+-=item kill
+-
+-This is identical to Perl's builtin C<kill()> function for sending
+-signals to processes (often to terminate them), see L<perlfunc/kill>.
+-
+-=item labs
+-
+-(For returning absolute values of long integers.)
+-labs() is C-specific, see L<perlfunc/abs> instead.
+-
+-=item lchown
+-
+-This is identical to the C function, except the order of arguments is
+-consistent with Perl's builtin C<chown()> with the added restriction
+-of only one path, not an list of paths.  Does the same thing as the 
+-C<chown()> function but changes the owner of a symbolic link instead 
+-of the file the symbolic link points to.
+-
+-=item ldexp
+-
+-This is identical to the C function C<ldexp()>
+-for multiplying floating point numbers with powers of two.
+-
+-	$x_quadrupled = POSIX::ldexp($x, 2);
+-
+-=item ldiv
+-
+-(For computing dividends of long integers.)
+-ldiv() is C-specific, use C</> and C<int()> instead.
+-
+-=item link
+-
+-This is identical to Perl's builtin C<link()> function
+-for creating hard links into files, see L<perlfunc/link>.
+-
+-=item localeconv
+-
+-Get numeric formatting information.  Returns a reference to a hash
+-containing the current locale formatting values.
+-
+-Here is how to query the database for the B<de> (Deutsch or German) locale.
+-
+-	$loc = POSIX::setlocale( &POSIX::LC_ALL, "de" );
+-	print "Locale = $loc\n";
+-	$lconv = POSIX::localeconv();
+-	print "decimal_point	= ", $lconv->{decimal_point},	"\n";
+-	print "thousands_sep	= ", $lconv->{thousands_sep},	"\n";
+-	print "grouping	= ", $lconv->{grouping},	"\n";
+-	print "int_curr_symbol	= ", $lconv->{int_curr_symbol},	"\n";
+-	print "currency_symbol	= ", $lconv->{currency_symbol},	"\n";
+-	print "mon_decimal_point = ", $lconv->{mon_decimal_point}, "\n";
+-	print "mon_thousands_sep = ", $lconv->{mon_thousands_sep}, "\n";
+-	print "mon_grouping	= ", $lconv->{mon_grouping},	"\n";
+-	print "positive_sign	= ", $lconv->{positive_sign},	"\n";
+-	print "negative_sign	= ", $lconv->{negative_sign},	"\n";
+-	print "int_frac_digits	= ", $lconv->{int_frac_digits},	"\n";
+-	print "frac_digits	= ", $lconv->{frac_digits},	"\n";
+-	print "p_cs_precedes	= ", $lconv->{p_cs_precedes},	"\n";
+-	print "p_sep_by_space	= ", $lconv->{p_sep_by_space},	"\n";
+-	print "n_cs_precedes	= ", $lconv->{n_cs_precedes},	"\n";
+-	print "n_sep_by_space	= ", $lconv->{n_sep_by_space},	"\n";
+-	print "p_sign_posn	= ", $lconv->{p_sign_posn},	"\n";
+-	print "n_sign_posn	= ", $lconv->{n_sign_posn},	"\n";
+-
+-=item localtime
+-
+-This is identical to Perl's builtin C<localtime()> function for
+-converting seconds since the epoch to a date see L<perlfunc/localtime>.
+-
+-=item log
+-
+-This is identical to Perl's builtin C<log()> function,
+-returning the natural (I<e>-based) logarithm of the numerical argument,
+-see L<perlfunc/log>.
+-
+-=item log10
+-
+-This is identical to the C function C<log10()>,
+-returning the 10-base logarithm of the numerical argument.
+-You can also use
+-
+-    sub log10 { log($_[0]) / log(10) }
+-
+-or
+-
+-    sub log10 { log($_[0]) / 2.30258509299405 }
+-
+-or
+-
+-    sub log10 { log($_[0]) * 0.434294481903252 }
+-
+-=item longjmp
+-
+-longjmp() is C-specific: use L<perlfunc/die> instead.
+-
+-=item lseek
+-
+-Move the file's read/write position.  This uses file descriptors such as
+-those obtained by calling C<POSIX::open>.
+-
+-	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
+-	$off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET );
+-
+-Returns C<undef> on failure.
+-
+-=item malloc
+-
+-malloc() is C-specific.  Perl does memory management transparently.
+-
+-=item mblen
+-
+-This is identical to the C function C<mblen()>.
+-Perl does not have any support for the wide and multibyte
+-characters of the C standards, so this might be a rather
+-useless function.
+-
+-=item mbstowcs
+-
+-This is identical to the C function C<mbstowcs()>.
+-Perl does not have any support for the wide and multibyte
+-characters of the C standards, so this might be a rather
+-useless function.
+-
+-=item mbtowc
+-
+-This is identical to the C function C<mbtowc()>.
+-Perl does not have any support for the wide and multibyte
+-characters of the C standards, so this might be a rather
+-useless function.
+-
+-=item memchr
+-
+-memchr() is C-specific, see L<perlfunc/index> instead.
+-
+-=item memcmp
+-
+-memcmp() is C-specific, use C<eq> instead, see L<perlop>.
+-
+-=item memcpy
+-
+-memcpy() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>.
+-
+-=item memmove
+-
+-memmove() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>.
+-
+-=item memset
+-
+-memset() is C-specific, use C<x> instead, see L<perlop>.
+-
+-=item mkdir
+-
+-This is identical to Perl's builtin C<mkdir()> function
+-for creating directories, see L<perlfunc/mkdir>.
+-
+-=item mkfifo
+-
+-This is similar to the C function C<mkfifo()> for creating
+-FIFO special files.
+-
+-	if (mkfifo($path, $mode)) { ....
+-
+-Returns C<undef> on failure.  The C<$mode> is similar to the
+-mode of C<mkdir()>, see L<perlfunc/mkdir>, though for C<mkfifo>
+-you B<must> specify the C<$mode>.
+-
+-=item mktime
+-
+-Convert date/time info to a calendar time.
+-
+-Synopsis:
+-
+-	mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = -1)
+-
+-The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero.
+-I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1.  The
+-year (C<year>) is given in years since 1900.  I.e. The year 1995 is 95; the
+-year 2001 is 101.  Consult your system's C<mktime()> manpage for details
+-about these and the other arguments.
+-
+-Calendar time for December 12, 1995, at 10:30 am.
+-
+-	$time_t = POSIX::mktime( 0, 30, 10, 12, 11, 95 );
+-	print "Date = ", POSIX::ctime($time_t);
+-
+-Returns C<undef> on failure.
+-
+-=item modf
+-
+-Return the integral and fractional parts of a floating-point number.
+-
+-	($fractional, $integral) = POSIX::modf( 3.14 );
+-
+-=item nice
+-
+-This is similar to the C function C<nice()>, for changing
+-the scheduling preference of the current process.  Positive
+-arguments mean more polite process, negative values more
+-needy process.  Normal user processes can only be more polite.
+-
+-Returns C<undef> on failure.
+-
+-=item offsetof
+-
+-offsetof() is C-specific, you probably want to see L<perlfunc/pack> instead.
+-
+-=item open
+-
+-Open a file for reading for writing.  This returns file descriptors, not
+-Perl filehandles.  Use C<POSIX::close> to close the file.
+-
+-Open a file read-only with mode 0666.
+-
+-	$fd = POSIX::open( "foo" );
+-
+-Open a file for read and write.
+-
+-	$fd = POSIX::open( "foo", &POSIX::O_RDWR );
+-
+-Open a file for write, with truncation.
+-
+-	$fd = POSIX::open( "foo", &POSIX::O_WRONLY | &POSIX::O_TRUNC );
+-
+-Create a new file with mode 0640.  Set up the file for writing.
+-
+-	$fd = POSIX::open( "foo", &POSIX::O_CREAT | &POSIX::O_WRONLY, 0640 );
+-
+-Returns C<undef> on failure.
+-
+-See also L<perlfunc/sysopen>.
+-
+-=item opendir
+-
+-Open a directory for reading.
+-
+-	$dir = POSIX::opendir( "/var" );
+-	@files = POSIX::readdir( $dir );
+-	POSIX::closedir( $dir );
+-
+-Returns C<undef> on failure.
+-
+-=item pathconf
+-
+-Retrieves the value of a configurable limit on a file or directory.
+-
+-The following will determine the maximum length of the longest allowable
+-pathname on the filesystem which holds C</var>.
+-
+-	$path_max = POSIX::pathconf( "/var", &POSIX::_PC_PATH_MAX );
+-
+-Returns C<undef> on failure.
+-
+-=item pause
+-
+-This is similar to the C function C<pause()>, which suspends
+-the execution of the current process until a signal is received.
+-
+-Returns C<undef> on failure.
+-
+-=item perror
+-
+-This is identical to the C function C<perror()>, which outputs to the
+-standard error stream the specified message followed by ": " and the
+-current error string.  Use the C<warn()> function and the C<$!>
+-variable instead, see L<perlfunc/warn> and L<perlvar/$ERRNO>.
+-
+-=item pipe
+-
+-Create an interprocess channel.  This returns file descriptors like those
+-returned by C<POSIX::open>.
+-
+-	my ($read, $write) = POSIX::pipe();
+-	POSIX::write( $write, "hello", 5 );
+-	POSIX::read( $read, $buf, 5 );
+-
+-See also L<perlfunc/pipe>.
+-
+-=item pow
+-
+-Computes C<$x> raised to the power C<$exponent>.
+-
+-	$ret = POSIX::pow( $x, $exponent );
+-
+-You can also use the C<**> operator, see L<perlop>.
+-
+-=item printf
+-
+-Formats and prints the specified arguments to STDOUT.
+-See also L<perlfunc/printf>.
+-
+-=item putc
+-
+-putc() is C-specific, see L<perlfunc/print> instead.
+-
+-=item putchar
+-
+-putchar() is C-specific, see L<perlfunc/print> instead.
+-
+-=item puts
+-
+-puts() is C-specific, see L<perlfunc/print> instead.
+-
+-=item qsort
+-
+-qsort() is C-specific, see L<perlfunc/sort> instead.
+-
+-=item raise
+-
+-Sends the specified signal to the current process.
+-See also L<perlfunc/kill> and the C<$$> in L<perlvar/$PID>.
+-
+-=item rand
+-
+-C<rand()> is non-portable, see L<perlfunc/rand> instead.
+-
+-=item read
+-
+-Read from a file.  This uses file descriptors such as those obtained by
+-calling C<POSIX::open>.  If the buffer C<$buf> is not large enough for the
+-read then Perl will extend it to make room for the request.
+-
+-	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
+-	$bytes = POSIX::read( $fd, $buf, 3 );
+-
+-Returns C<undef> on failure.
+-
+-See also L<perlfunc/sysread>.
+-
+-=item readdir
+-
+-This is identical to Perl's builtin C<readdir()> function
+-for reading directory entries, see L<perlfunc/readdir>.
+-
+-=item realloc
+-
+-realloc() is C-specific.  Perl does memory management transparently.
+-
+-=item remove
+-
+-This is identical to Perl's builtin C<unlink()> function
+-for removing files, see L<perlfunc/unlink>.
+-
+-=item rename
+-
+-This is identical to Perl's builtin C<rename()> function
+-for renaming files, see L<perlfunc/rename>.
+-
+-=item rewind
+-
+-Seeks to the beginning of the file.
+-
+-=item rewinddir
+-
+-This is identical to Perl's builtin C<rewinddir()> function for
+-rewinding directory entry streams, see L<perlfunc/rewinddir>.
+-
+-=item rmdir
+-
+-This is identical to Perl's builtin C<rmdir()> function
+-for removing (empty) directories, see L<perlfunc/rmdir>.
+-
+-=item scanf
+-
+-scanf() is C-specific, use E<lt>E<gt> and regular expressions instead,
+-see L<perlre>.
+-
+-=item setgid
+-
+-Sets the real group identifier and the effective group identifier for
+-this process.  Similar to assigning a value to the Perl's builtin
+-C<$)> variable, see L<perlvar/$EGID>, except that the latter
+-will change only the real user identifier, and that the setgid()
+-uses only a single numeric argument, as opposed to a space-separated
+-list of numbers.
+-
+-=item setjmp
+-
+-C<setjmp()> is C-specific: use C<eval {}> instead,
+-see L<perlfunc/eval>.
+-
+-=item setlocale
+-
+-Modifies and queries program's locale.  The following examples assume
+-
+-	use POSIX qw(setlocale LC_ALL LC_CTYPE);
+-
+-has been issued.
+-
+-The following will set the traditional UNIX system locale behavior
+-(the second argument C<"C">).
+-
+-	$loc = setlocale( LC_ALL, "C" );
+-
+-The following will query the current LC_CTYPE category.  (No second
+-argument means 'query'.)
+-
+-	$loc = setlocale( LC_CTYPE );
+-
+-The following will set the LC_CTYPE behaviour according to the locale
+-environment variables (the second argument C<"">).
+-Please see your systems C<setlocale(3)> documentation for the locale
+-environment variables' meaning or consult L<perllocale>.
+-
+-	$loc = setlocale( LC_CTYPE, "" );
+-
+-The following will set the LC_COLLATE behaviour to Argentinian
+-Spanish. B<NOTE>: The naming and availability of locales depends on
+-your operating system. Please consult L<perllocale> for how to find
+-out which locales are available in your system.
+-
+-	$loc = setlocale( LC_COLLATE, "es_AR.ISO8859-1" );
+-
+-=item setpgid
+-
+-This is similar to the C function C<setpgid()> for
+-setting the process group identifier of the current process.
+-
+-Returns C<undef> on failure.
+-
+-=item setsid
+-
+-This is identical to the C function C<setsid()> for
+-setting the session identifier of the current process.
+-
+-=item setuid
+-
+-Sets the real user identifier and the effective user identifier for
+-this process.  Similar to assigning a value to the Perl's builtin
+-C<$E<lt>> variable, see L<perlvar/$UID>, except that the latter
+-will change only the real user identifier.
+-
+-=item sigaction
+-
+-Detailed signal management.  This uses C<POSIX::SigAction> objects for
+-the C<action> and C<oldaction> arguments (the oldaction can also be
+-just a hash reference).  Consult your system's C<sigaction> manpage
+-for details, see also C<POSIX::SigRt>.
+-
+-Synopsis:
+-
+-	sigaction(signal, action, oldaction = 0)
+-
+-Returns C<undef> on failure.  The C<signal> must be a number (like
+-SIGHUP), not a string (like "SIGHUP"), though Perl does try hard
+-to understand you.
+-
+-If you use the SA_SIGINFO flag, the signal handler will in addition to
+-the first argument, the signal name, also receive a second argument, a
+-hash reference, inside which are the following keys with the following
+-semantics, as defined by POSIX/SUSv3:
+-
+-    signo       the signal number
+-    errno       the error number
+-    code        if this is zero or less, the signal was sent by
+-                a user process and the uid and pid make sense,
+-                otherwise the signal was sent by the kernel
+-
+-The following are also defined by POSIX/SUSv3, but unfortunately
+-not very widely implemented:
+-
+-    pid         the process id generating the signal
+-    uid         the uid of the process id generating the signal
+-    status      exit value or signal for SIGCHLD
+-    band        band event for SIGPOLL
+-
+-A third argument is also passed to the handler, which contains a copy
+-of the raw binary contents of the siginfo structure: if a system has
+-some non-POSIX fields, this third argument is where to unpack() them
+-from.
+-
+-Note that not all siginfo values make sense simultaneously (some are
+-valid only for certain signals, for example), and not all values make
+-sense from Perl perspective, you should to consult your system's
+-C<sigaction> and possibly also C<siginfo> documentation.
+-
+-=item siglongjmp
+-
+-siglongjmp() is C-specific: use L<perlfunc/die> instead.
+-
+-=item sigpending
+-
+-Examine signals that are blocked and pending.  This uses C<POSIX::SigSet>
+-objects for the C<sigset> argument.  Consult your system's C<sigpending>
+-manpage for details.
+-
+-Synopsis:
+-
+-	sigpending(sigset)
+-
+-Returns C<undef> on failure.
+-
+-=item sigprocmask
+-
+-Change and/or examine calling process's signal mask.  This uses
+-C<POSIX::SigSet> objects for the C<sigset> and C<oldsigset> arguments.
+-Consult your system's C<sigprocmask> manpage for details.
+-
+-Synopsis:
+-
+-	sigprocmask(how, sigset, oldsigset = 0)
+-
+-Returns C<undef> on failure.
+-
+-=item sigsetjmp
+-
+-C<sigsetjmp()> is C-specific: use C<eval {}> instead,
+-see L<perlfunc/eval>.
+-
+-=item sigsuspend
+-
+-Install a signal mask and suspend process until signal arrives.  This uses
+-C<POSIX::SigSet> objects for the C<signal_mask> argument.  Consult your
+-system's C<sigsuspend> manpage for details.
+-
+-Synopsis:
+-
+-	sigsuspend(signal_mask)
+-
+-Returns C<undef> on failure.
+-
+-=item sin
+-
+-This is identical to Perl's builtin C<sin()> function
+-for returning the sine of the numerical argument,
+-see L<perlfunc/sin>.  See also L<Math::Trig>.
+-
+-=item sinh
+-
+-This is identical to the C function C<sinh()>
+-for returning the hyperbolic sine of the numerical argument.
+-See also L<Math::Trig>.
+-
+-=item sleep
+-
+-This is functionally identical to Perl's builtin C<sleep()> function
+-for suspending the execution of the current for process for certain
+-number of seconds, see L<perlfunc/sleep>.  There is one significant
+-difference, however: C<POSIX::sleep()> returns the number of
+-B<unslept> seconds, while the C<CORE::sleep()> returns the
+-number of slept seconds.
+-
+-=item sprintf
+-
+-This is similar to Perl's builtin C<sprintf()> function
+-for returning a string that has the arguments formatted as requested,
+-see L<perlfunc/sprintf>.
+-
+-=item sqrt
+-
+-This is identical to Perl's builtin C<sqrt()> function.
+-for returning the square root of the numerical argument,
+-see L<perlfunc/sqrt>.
+-
+-=item srand
+-
+-Give a seed the pseudorandom number generator, see L<perlfunc/srand>.
+-
+-=item sscanf
+-
+-sscanf() is C-specific, use regular expressions instead,
+-see L<perlre>.
+-
+-=item stat
+-
+-This is identical to Perl's builtin C<stat()> function
+-for returning information about files and directories.
+-
+-=item strcat
+-
+-strcat() is C-specific, use C<.=> instead, see L<perlop>.
+-
+-=item strchr
+-
+-strchr() is C-specific, see L<perlfunc/index> instead.
+-
+-=item strcmp
+-
+-strcmp() is C-specific, use C<eq> or C<cmp> instead, see L<perlop>.
+-
+-=item strcoll
+-
+-This is identical to the C function C<strcoll()>
+-for collating (comparing) strings transformed using
+-the C<strxfrm()> function.  Not really needed since
+-Perl can do this transparently, see L<perllocale>.
+-
+-=item strcpy
+-
+-strcpy() is C-specific, use C<=> instead, see L<perlop>.
+-
+-=item strcspn
+-
+-strcspn() is C-specific, use regular expressions instead,
+-see L<perlre>.
+-
+-=item strerror
+-
+-Returns the error string for the specified errno.
+-Identical to the string form of the C<$!>, see L<perlvar/$ERRNO>.
+-
+-=item strftime
+-
+-Convert date and time information to string.  Returns the string.
+-
+-Synopsis:
+-
+-	strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
+-
+-The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero.
+-I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1.  The
+-year (C<year>) is given in years since 1900.  I.e., the year 1995 is 95; the
+-year 2001 is 101.  Consult your system's C<strftime()> manpage for details
+-about these and the other arguments.
+-
+-If you want your code to be portable, your format (C<fmt>) argument
+-should use only the conversion specifiers defined by the ANSI C
+-standard (C89, to play safe).  These are C<aAbBcdHIjmMpSUwWxXyYZ%>.
+-But even then, the B<results> of some of the conversion specifiers are
+-non-portable.  For example, the specifiers C<aAbBcpZ> change according
+-to the locale settings of the user, and both how to set locales (the
+-locale names) and what output to expect are non-standard.
+-The specifier C<c> changes according to the timezone settings of the
+-user and the timezone computation rules of the operating system.
+-The C<Z> specifier is notoriously unportable since the names of
+-timezones are non-standard. Sticking to the numeric specifiers is the
+-safest route.
+-
+-The given arguments are made consistent as though by calling
+-C<mktime()> before calling your system's C<strftime()> function,
+-except that the C<isdst> value is not affected.
+-
+-The string for Tuesday, December 12, 1995.
+-
+-	$str = POSIX::strftime( "%A, %B %d, %Y", 0, 0, 0, 12, 11, 95, 2 );
+-	print "$str\n";
+-
+-=item strlen
+-
+-strlen() is C-specific, use C<length()> instead, see L<perlfunc/length>.
+-
+-=item strncat
+-
+-strncat() is C-specific, use C<.=> instead, see L<perlop>.
+-
+-=item strncmp
+-
+-strncmp() is C-specific, use C<eq> instead, see L<perlop>.
+-
+-=item strncpy
+-
+-strncpy() is C-specific, use C<=> instead, see L<perlop>.
+-
+-=item strpbrk
+-
+-strpbrk() is C-specific, use regular expressions instead,
+-see L<perlre>.
+-
+-=item strrchr
+-
+-strrchr() is C-specific, see L<perlfunc/rindex> instead.
+-
+-=item strspn
+-
+-strspn() is C-specific, use regular expressions instead,
+-see L<perlre>.
+-
+-=item strstr
+-
+-This is identical to Perl's builtin C<index()> function,
+-see L<perlfunc/index>.
+-
+-=item strtod
+-
+-String to double translation. Returns the parsed number and the number
+-of characters in the unparsed portion of the string.  Truly
+-POSIX-compliant systems set $! ($ERRNO) to indicate a translation
+-error, so clear $! before calling strtod.  However, non-POSIX systems
+-may not check for overflow, and therefore will never set $!.
+-
+-strtod should respect any POSIX I<setlocale()> settings.
+-
+-To parse a string $str as a floating point number use
+-
+-    $! = 0;
+-    ($num, $n_unparsed) = POSIX::strtod($str);
+-
+-The second returned item and $! can be used to check for valid input:
+-
+-    if (($str eq '') || ($n_unparsed != 0) || $!) {
+-        die "Non-numeric input $str" . ($! ? ": $!\n" : "\n");
+-    }
+-
+-When called in a scalar context strtod returns the parsed number.
+-
+-=item strtok
+-
+-strtok() is C-specific, use regular expressions instead, see
+-L<perlre>, or L<perlfunc/split>.
+-
+-=item strtol
+-
+-String to (long) integer translation.  Returns the parsed number and
+-the number of characters in the unparsed portion of the string.  Truly
+-POSIX-compliant systems set $! ($ERRNO) to indicate a translation
+-error, so clear $! before calling strtol.  However, non-POSIX systems
+-may not check for overflow, and therefore will never set $!.
+-
+-strtol should respect any POSIX I<setlocale()> settings.
+-
+-To parse a string $str as a number in some base $base use
+-
+-    $! = 0;
+-    ($num, $n_unparsed) = POSIX::strtol($str, $base);
+-
+-The base should be zero or between 2 and 36, inclusive.  When the base
+-is zero or omitted strtol will use the string itself to determine the
+-base: a leading "0x" or "0X" means hexadecimal; a leading "0" means
+-octal; any other leading characters mean decimal.  Thus, "1234" is
+-parsed as a decimal number, "01234" as an octal number, and "0x1234"
+-as a hexadecimal number.
+-
+-The second returned item and $! can be used to check for valid input:
+-
+-    if (($str eq '') || ($n_unparsed != 0) || !$!) {
+-        die "Non-numeric input $str" . $! ? ": $!\n" : "\n";
+-    }
+-
+-When called in a scalar context strtol returns the parsed number.
+-
+-=item strtoul
+-
+-String to unsigned (long) integer translation.  strtoul() is identical
+-to strtol() except that strtoul() only parses unsigned integers.  See
+-L</strtol> for details.
+-
+-Note: Some vendors supply strtod() and strtol() but not strtoul().
+-Other vendors that do supply strtoul() parse "-1" as a valid value.
+-
+-=item strxfrm
+-
+-String transformation.  Returns the transformed string.
+-
+-	$dst = POSIX::strxfrm( $src );
+-
+-Used in conjunction with the C<strcoll()> function, see L</strcoll>.
+-
+-Not really needed since Perl can do this transparently, see
+-L<perllocale>.
+-
+-=item sysconf
+-
+-Retrieves values of system configurable variables.
+-
+-The following will get the machine's clock speed.
+-
+-	$clock_ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK );
+-
+-Returns C<undef> on failure.
+-
+-=item system
+-
+-This is identical to Perl's builtin C<system()> function, see
+-L<perlfunc/system>.
+-
+-=item tan
+-
+-This is identical to the C function C<tan()>, returning the
+-tangent of the numerical argument.  See also L<Math::Trig>.
+-
+-=item tanh
+-
+-This is identical to the C function C<tanh()>, returning the
+-hyperbolic tangent of the numerical argument.   See also L<Math::Trig>.
+-
+-=item tcdrain
+-
+-This is similar to the C function C<tcdrain()> for draining
+-the output queue of its argument stream.
+-
+-Returns C<undef> on failure.
+-
+-=item tcflow
+-
+-This is similar to the C function C<tcflow()> for controlling
+-the flow of its argument stream.
+-
+-Returns C<undef> on failure.
+-
+-=item tcflush
+-
+-This is similar to the C function C<tcflush()> for flushing
+-the I/O buffers of its argument stream.
+-
+-Returns C<undef> on failure.
+-
+-=item tcgetpgrp
+-
+-This is identical to the C function C<tcgetpgrp()> for returning the
+-process group identifier of the foreground process group of the controlling
+-terminal.
+-
+-=item tcsendbreak
+-
+-This is similar to the C function C<tcsendbreak()> for sending
+-a break on its argument stream.
+-
+-Returns C<undef> on failure.
+-
+-=item tcsetpgrp
+-
+-This is similar to the C function C<tcsetpgrp()> for setting the
+-process group identifier of the foreground process group of the controlling
+-terminal.
+-
+-Returns C<undef> on failure.
+-
+-=item time
+-
+-This is identical to Perl's builtin C<time()> function
+-for returning the number of seconds since the epoch
+-(whatever it is for the system), see L<perlfunc/time>.
+-
+-=item times
+-
+-The times() function returns elapsed realtime since some point in the past
+-(such as system startup), user and system times for this process, and user
+-and system times used by child processes.  All times are returned in clock
+-ticks.
+-
+-    ($realtime, $user, $system, $cuser, $csystem) = POSIX::times();
+-
+-Note: Perl's builtin C<times()> function returns four values, measured in
+-seconds.
+-
+-=item tmpfile
+-
+-Use method C<IO::File::new_tmpfile()> instead, or see L<File::Temp>.
+-
+-=item tmpnam
+-
+-Returns a name for a temporary file.
+-
+-	$tmpfile = POSIX::tmpnam();
+-
+-For security reasons, which are probably detailed in your system's
+-documentation for the C library tmpnam() function, this interface
+-should not be used; instead see L<File::Temp>.
+-
+-=item tolower
+-
+-This is identical to the C function, except that it can apply to a single
+-character or to a whole string.  Consider using the C<lc()> function,
+-see L<perlfunc/lc>, or the equivalent C<\L> operator inside doublequotish
+-strings.
+-
+-=item toupper
+-
+-This is identical to the C function, except that it can apply to a single
+-character or to a whole string.  Consider using the C<uc()> function,
+-see L<perlfunc/uc>, or the equivalent C<\U> operator inside doublequotish
+-strings.
+-
+-=item ttyname
+-
+-This is identical to the C function C<ttyname()> for returning the
+-name of the current terminal.
+-
+-=item tzname
+-
+-Retrieves the time conversion information from the C<tzname> variable.
+-
+-	POSIX::tzset();
+-	($std, $dst) = POSIX::tzname();
+-
+-=item tzset
+-
+-This is identical to the C function C<tzset()> for setting
+-the current timezone based on the environment variable C<TZ>,
+-to be used by C<ctime()>, C<localtime()>, C<mktime()>, and C<strftime()>
+-functions.
+-
+-=item umask
+-
+-This is identical to Perl's builtin C<umask()> function
+-for setting (and querying) the file creation permission mask,
+-see L<perlfunc/umask>.
+-
+-=item uname
+-
+-Get name of current operating system.
+-
+-	($sysname, $nodename, $release, $version, $machine) = POSIX::uname();
+-
+-Note that the actual meanings of the various fields are not
+-that well standardized, do not expect any great portability.
+-The C<$sysname> might be the name of the operating system,
+-the C<$nodename> might be the name of the host, the C<$release>
+-might be the (major) release number of the operating system,
+-the C<$version> might be the (minor) release number of the
+-operating system, and the C<$machine> might be a hardware identifier.
+-Maybe.
+-
+-=item ungetc
+-
+-Use method C<IO::Handle::ungetc()> instead.
+-
+-=item unlink
+-
+-This is identical to Perl's builtin C<unlink()> function
+-for removing files, see L<perlfunc/unlink>.
+-
+-=item utime
+-
+-This is identical to Perl's builtin C<utime()> function
+-for changing the time stamps of files and directories,
+-see L<perlfunc/utime>.
+-
+-=item vfprintf
+-
+-vfprintf() is C-specific, see L<perlfunc/printf> instead.
+-
+-=item vprintf
+-
+-vprintf() is C-specific, see L<perlfunc/printf> instead.
+-
+-=item vsprintf
+-
+-vsprintf() is C-specific, see L<perlfunc/sprintf> instead.
+-
+-=item wait
+-
+-This is identical to Perl's builtin C<wait()> function,
+-see L<perlfunc/wait>.
+-
+-=item waitpid
+-
+-Wait for a child process to change state.  This is identical to Perl's
+-builtin C<waitpid()> function, see L<perlfunc/waitpid>.
+-
+-	$pid = POSIX::waitpid( -1, POSIX::WNOHANG );
+-	print "status = ", ($? / 256), "\n";
+-
+-=item wcstombs
+-
+-This is identical to the C function C<wcstombs()>.
+-Perl does not have any support for the wide and multibyte
+-characters of the C standards, so this might be a rather
+-useless function.
+-
+-=item wctomb
+-
+-This is identical to the C function C<wctomb()>.
+-Perl does not have any support for the wide and multibyte
+-characters of the C standards, so this might be a rather
+-useless function.
+-
+-=item write
+-
+-Write to a file.  This uses file descriptors such as those obtained by
+-calling C<POSIX::open>.
+-
+-	$fd = POSIX::open( "foo", &POSIX::O_WRONLY );
+-	$buf = "hello";
+-	$bytes = POSIX::write( $fd, $buf, 5 );
+-
+-Returns C<undef> on failure.
+-
+-See also L<perlfunc/syswrite>.
+-
+-=back
+-
+-=head1 CLASSES
+-
+-=head2 POSIX::SigAction
+-
+-=over 8
+-
+-=item new
+-
+-Creates a new C<POSIX::SigAction> object which corresponds to the C
+-C<struct sigaction>.  This object will be destroyed automatically when
+-it is no longer needed.  The first parameter is the handler, a sub
+-reference.  The second parameter is a C<POSIX::SigSet> object, it
+-defaults to the empty set.  The third parameter contains the
+-C<sa_flags>, it defaults to 0.
+-
+-	$sigset = POSIX::SigSet->new(SIGINT, SIGQUIT);
+-	$sigaction = POSIX::SigAction->new( \&handler, $sigset, &POSIX::SA_NOCLDSTOP );
+-
+-This C<POSIX::SigAction> object is intended for use with the C<POSIX::sigaction()>
+-function.
+-
+-=back
+-
+-=over 8
+-
+-=item handler
+-
+-=item mask
+-
+-=item flags
+-
+-accessor functions to get/set the values of a SigAction object.
+-
+-	$sigset = $sigaction->mask;
+-	$sigaction->flags(&POSIX::SA_RESTART);
+-
+-=item safe
+-
+-accessor function for the "safe signals" flag of a SigAction object; see
+-L<perlipc> for general information on safe (a.k.a. "deferred") signals.  If
+-you wish to handle a signal safely, use this accessor to set the "safe" flag
+-in the C<POSIX::SigAction> object:
+-
+-	$sigaction->safe(1);
+-
+-You may also examine the "safe" flag on the output action object which is
+-filled in when given as the third parameter to C<POSIX::sigaction()>:
+-
+-	sigaction(SIGINT, $new_action, $old_action);
+-	if ($old_action->safe) {
+-	    # previous SIGINT handler used safe signals
+-	}
+-
+-=back
+-
+-=head2 POSIX::SigRt
+-
+-=over 8
+-
+-=item %SIGRT
+-
+-A hash of the POSIX realtime signal handlers.  It is an extension of
+-the standard %SIG, the $POSIX::SIGRT{SIGRTMIN} is roughly equivalent
+-to $SIG{SIGRTMIN}, but the right POSIX moves (see below) are made with
+-the POSIX::SigSet and POSIX::sigaction instead of accessing the %SIG.
+-
+-You can set the %POSIX::SIGRT elements to set the POSIX realtime
+-signal handlers, use C<delete> and C<exists> on the elements, and use
+-C<scalar> on the C<%POSIX::SIGRT> to find out how many POSIX realtime
+-signals there are available (SIGRTMAX - SIGRTMIN + 1, the SIGRTMAX is
+-a valid POSIX realtime signal).
+-
+-Setting the %SIGRT elements is equivalent to calling this:
+-
+-  sub new {
+-    my ($rtsig, $handler, $flags) = @_;
+-    my $sigset = POSIX::SigSet($rtsig);
+-    my $sigact = POSIX::SigAction->new($handler, $sigset, $flags);
+-    sigaction($rtsig, $sigact);
+-  }
+-
+-The flags default to zero, if you want something different you can
+-either use C<local> on $POSIX::SigRt::SIGACTION_FLAGS, or you can
+-derive from POSIX::SigRt and define your own C<new()> (the tied hash
+-STORE method of the %SIGRT calls C<new($rtsig, $handler, $SIGACTION_FLAGS)>,
+-where the $rtsig ranges from zero to SIGRTMAX - SIGRTMIN + 1).
+-
+-Just as with any signal, you can use sigaction($rtsig, undef, $oa) to
+-retrieve the installed signal handler (or, rather, the signal action).
+-
+-B<NOTE:> whether POSIX realtime signals really work in your system, or
+-whether Perl has been compiled so that it works with them, is outside
+-of this discussion.
+-
+-=item SIGRTMIN
+-
+-Return the minimum POSIX realtime signal number available, or C<undef>
+-if no POSIX realtime signals are available.
+-
+-=item SIGRTMAX
+-
+-Return the maximum POSIX realtime signal number available, or C<undef>
+-if no POSIX realtime signals are available.
+-
+-=back
+-
+-=head2 POSIX::SigSet
+-
+-=over 8
+-
+-=item new
+-
+-Create a new SigSet object.  This object will be destroyed automatically
+-when it is no longer needed.  Arguments may be supplied to initialize the
+-set.
+-
+-Create an empty set.
+-
+-	$sigset = POSIX::SigSet->new;
+-
+-Create a set with SIGUSR1.
+-
+-	$sigset = POSIX::SigSet->new( &POSIX::SIGUSR1 );
+-
+-=item addset
+-
+-Add a signal to a SigSet object.
+-
+-	$sigset->addset( &POSIX::SIGUSR2 );
+-
+-Returns C<undef> on failure.
+-
+-=item delset
+-
+-Remove a signal from the SigSet object.
+-
+-	$sigset->delset( &POSIX::SIGUSR2 );
+-
+-Returns C<undef> on failure.
+-
+-=item emptyset
+-
+-Initialize the SigSet object to be empty.
+-
+-	$sigset->emptyset();
+-
+-Returns C<undef> on failure.
+-
+-=item fillset
+-
+-Initialize the SigSet object to include all signals.
+-
+-	$sigset->fillset();
+-
+-Returns C<undef> on failure.
+-
+-=item ismember
+-
+-Tests the SigSet object to see if it contains a specific signal.
+-
+-	if( $sigset->ismember( &POSIX::SIGUSR1 ) ){
+-		print "contains SIGUSR1\n";
+-	}
+-
+-=back
+-
+-=head2 POSIX::Termios
+-
+-=over 8
+-
+-=item new
+-
+-Create a new Termios object.  This object will be destroyed automatically
+-when it is no longer needed.  A Termios object corresponds to the termios
+-C struct.  new() mallocs a new one, getattr() fills it from a file descriptor,
+-and setattr() sets a file descriptor's parameters to match Termios' contents.
+-
+-	$termios = POSIX::Termios->new;
+-
+-=item getattr
+-
+-Get terminal control attributes.
+-
+-Obtain the attributes for stdin.
+-
+-	$termios->getattr( 0 ) # Recommended for clarity.
+-	$termios->getattr()
+-
+-Obtain the attributes for stdout.
+-
+-	$termios->getattr( 1 )
+-
+-Returns C<undef> on failure.
+-
+-=item getcc
+-
+-Retrieve a value from the c_cc field of a termios object.  The c_cc field is
+-an array so an index must be specified.
+-
+-	$c_cc[1] = $termios->getcc(1);
+-
+-=item getcflag
+-
+-Retrieve the c_cflag field of a termios object.
+-
+-	$c_cflag = $termios->getcflag;
+-
+-=item getiflag
+-
+-Retrieve the c_iflag field of a termios object.
+-
+-	$c_iflag = $termios->getiflag;
+-
+-=item getispeed
+-
+-Retrieve the input baud rate.
+-
+-	$ispeed = $termios->getispeed;
+-
+-=item getlflag
+-
+-Retrieve the c_lflag field of a termios object.
+-
+-	$c_lflag = $termios->getlflag;
+-
+-=item getoflag
+-
+-Retrieve the c_oflag field of a termios object.
+-
+-	$c_oflag = $termios->getoflag;
+-
+-=item getospeed
+-
+-Retrieve the output baud rate.
+-
+-	$ospeed = $termios->getospeed;
+-
+-=item setattr
+-
+-Set terminal control attributes.
+-
+-Set attributes immediately for stdout.
+-
+-	$termios->setattr( 1, &POSIX::TCSANOW );
+-
+-Returns C<undef> on failure.
+-
+-=item setcc
+-
+-Set a value in the c_cc field of a termios object.  The c_cc field is an
+-array so an index must be specified.
+-
+-	$termios->setcc( &POSIX::VEOF, 1 );
+-
+-=item setcflag
+-
+-Set the c_cflag field of a termios object.
+-
+-	$termios->setcflag( $c_cflag | &POSIX::CLOCAL );
+-
+-=item setiflag
+-
+-Set the c_iflag field of a termios object.
+-
+-	$termios->setiflag( $c_iflag | &POSIX::BRKINT );
+-
+-=item setispeed
+-
+-Set the input baud rate.
+-
+-	$termios->setispeed( &POSIX::B9600 );
+-
+-Returns C<undef> on failure.
+-
+-=item setlflag
+-
+-Set the c_lflag field of a termios object.
+-
+-	$termios->setlflag( $c_lflag | &POSIX::ECHO );
+-
+-=item setoflag
+-
+-Set the c_oflag field of a termios object.
+-
+-	$termios->setoflag( $c_oflag | &POSIX::OPOST );
+-
+-=item setospeed
+-
+-Set the output baud rate.
+-
+-	$termios->setospeed( &POSIX::B9600 );
+-
+-Returns C<undef> on failure.
+-
+-=item Baud rate values
+-
+-B38400 B75 B200 B134 B300 B1800 B150 B0 B19200 B1200 B9600 B600 B4800 B50 B2400 B110
+-
+-=item Terminal interface values
+-
+-TCSADRAIN TCSANOW TCOON TCIOFLUSH TCOFLUSH TCION TCIFLUSH TCSAFLUSH TCIOFF TCOOFF
+-
+-=item c_cc field values
+-
+-VEOF VEOL VERASE VINTR VKILL VQUIT VSUSP VSTART VSTOP VMIN VTIME NCCS
+-
+-=item c_cflag field values
+-
+-CLOCAL CREAD CSIZE CS5 CS6 CS7 CS8 CSTOPB HUPCL PARENB PARODD
+-
+-=item c_iflag field values
+-
+-BRKINT ICRNL IGNBRK IGNCR IGNPAR INLCR INPCK ISTRIP IXOFF IXON PARMRK
+-
+-=item c_lflag field values
+-
+-ECHO ECHOE ECHOK ECHONL ICANON IEXTEN ISIG NOFLSH TOSTOP
+-
+-=item c_oflag field values
+-
+-OPOST
+-
+-=back
+-
+-=head1 PATHNAME CONSTANTS
+-
+-=over 8
+-
+-=item Constants
+-
+-_PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX _PC_PIPE_BUF _PC_VDISABLE
+-
+-=back
+-
+-=head1 POSIX CONSTANTS
+-
+-=over 8
+-
+-=item Constants
+-
+-_POSIX_ARG_MAX _POSIX_CHILD_MAX _POSIX_CHOWN_RESTRICTED _POSIX_JOB_CONTROL _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_NO_TRUNC _POSIX_OPEN_MAX _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SAVED_IDS _POSIX_SSIZE_MAX _POSIX_STREAM_MAX _POSIX_TZNAME_MAX _POSIX_VDISABLE _POSIX_VERSION
+-
+-=back
+-
+-=head1 SYSTEM CONFIGURATION
+-
+-=over 8
+-
+-=item Constants
+-
+-_SC_ARG_MAX _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
+-
+-=back
+-
+-=head1 ERRNO
+-
+-=over 8
+-
+-=item Constants
+-
+-E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY EBADF
+-EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ
+-EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS EINTR
+-EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE ENAMETOOLONG
+-ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS ENODEV ENOENT ENOEXEC
+-ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR
+-ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE
+-EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART EROFS
+-ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS
+-ETXTBSY EUSERS EWOULDBLOCK EXDEV
+-
+-=back
+-
+-=head1 FCNTL
+-
+-=over 8
+-
+-=item Constants
+-
+-FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_OK F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC O_WRONLY
+-
+-=back
+-
+-=head1 FLOAT
+-
+-=over 8
+-
+-=item Constants
+-
+-DBL_DIG DBL_EPSILON DBL_MANT_DIG DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP FLT_DIG FLT_EPSILON FLT_MANT_DIG FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP FLT_RADIX FLT_ROUNDS LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP
+-
+-=back
+-
+-=head1 LIMITS
+-
+-=over 8
+-
+-=item Constants
+-
+-ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX ULONG_MAX USHRT_MAX
+-
+-=back
+-
+-=head1 LOCALE
+-
+-=over 8
+-
+-=item Constants
+-
+-LC_ALL LC_COLLATE LC_CTYPE LC_MONETARY LC_NUMERIC LC_TIME
+-
+-=back
+-
+-=head1 MATH
+-
+-=over 8
+-
+-=item Constants
+-
+-HUGE_VAL
+-
+-=back
+-
+-=head1 SIGNAL
+-
+-=over 8
+-
+-=item Constants
+-
+-SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK SA_RESETHAND SA_RESTART
+-SA_SIGINFO SIGABRT SIGALRM SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT
+-SIGKILL SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN SIGTTOU
+-SIGUSR1 SIGUSR2 SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK
+-SIG_UNBLOCK
+-
+-=back
+-
+-=head1 STAT
+-
+-=over 8
+-
+-=item Constants
+-
+-S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
+-
+-=item Macros
+-
+-S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
+-
+-=back
+-
+-=head1 STDLIB
+-
+-=over 8
+-
+-=item Constants
+-
+-EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX RAND_MAX
+-
+-=back
+-
+-=head1 STDIO
+-
+-=over 8
+-
+-=item Constants
+-
+-BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid L_tmpname TMP_MAX
+-
+-=back
+-
+-=head1 TIME
+-
+-=over 8
+-
+-=item Constants
+-
+-CLK_TCK CLOCKS_PER_SEC
+-
+-=back
+-
+-=head1 UNISTD
+-
+-=over 8
+-
+-=item Constants
+-
+-R_OK SEEK_CUR SEEK_END SEEK_SET STDIN_FILENO STDOUT_FILENO STDERR_FILENO W_OK X_OK
+-
+-=back
+-
+-=head1 WAIT
+-
+-=over 8
+-
+-=item Constants
+-
+-WNOHANG WUNTRACED
+-
+-=over 16
+-
+-=item WNOHANG
+-
+-Do not suspend the calling process until a child process
+-changes state but instead return immediately.
+-
+-=item WUNTRACED
+-
+-Catch stopped child processes.
+-
+-=back
+-
+-=item Macros
+-
+-WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG
+-
+-=over 16
+-
+-=item WIFEXITED
+-
+-WIFEXITED($?) returns true if the child process exited normally
+-(C<exit()> or by falling off the end of C<main()>)
+-
+-=item WEXITSTATUS
+-
+-WEXITSTATUS($?) returns the normal exit status of the child process
+-(only meaningful if WIFEXITED($?) is true)
+-
+-=item WIFSIGNALED
+-
+-WIFSIGNALED($?) returns true if the child process terminated because
+-of a signal
+-
+-=item WTERMSIG
+-
+-WTERMSIG($?) returns the signal the child process terminated for
+-(only meaningful if WIFSIGNALED($?) is true)
+-
+-=item WIFSTOPPED
+-
+-WIFSTOPPED($?) returns true if the child process is currently stopped
+-(can happen only if you specified the WUNTRACED flag to waitpid())
+-
+-=item WSTOPSIG
+-
+-WSTOPSIG($?) returns the signal the child process was stopped for
+-(only meaningful if WIFSTOPPED($?) is true)
+-
+-=back
+-
+-=back
+-
+diff --git a/ext/POSIX/lib/POSIX.pm b/ext/POSIX/lib/POSIX.pm
+new file mode 100644
+index 0000000..ffbd9de
+--- /dev/null
++++ b/ext/POSIX/lib/POSIX.pm
+@@ -0,0 +1,1042 @@
++package POSIX;
++use strict;
++use warnings;
++
++our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
++
++our $VERSION = "1.19";
++
++use AutoLoader;
++
++use XSLoader ();
++
++use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD
++	     F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND
++	     O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC
++	     O_WRONLY SEEK_CUR SEEK_END SEEK_SET
++	     S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
++	     S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID
++	     S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR);
++
++# Grandfather old foo_h form to new :foo_h form
++my $loaded;
++
++sub import {
++    load_imports() unless $loaded++;
++    my $this = shift;
++    my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_;
++    local $Exporter::ExportLevel = 1;
++    Exporter::import($this,@list);
++}
++
++sub croak { require Carp;  goto &Carp::croak }
++# declare usage to assist AutoLoad
++sub usage;
++
++XSLoader::load 'POSIX', $VERSION;
++
++sub AUTOLOAD {
++    no strict;
++    no warnings 'uninitialized';
++    if ($AUTOLOAD =~ /::(_?[a-z])/) {
++	# require AutoLoader;
++	$AutoLoader::AUTOLOAD = $AUTOLOAD;
++	goto &AutoLoader::AUTOLOAD
++    }
++    local $! = 0;
++    my $constname = $AUTOLOAD;
++    $constname =~ s/.*:://;
++    my ($error, $val) = constant($constname);
++    croak $error if $error;
++    *$AUTOLOAD = sub { $val };
++
++    goto &$AUTOLOAD;
++}
++
++package POSIX::SigAction;
++
++use AutoLoader 'AUTOLOAD';
++
++package POSIX::SigRt;
++
++use AutoLoader 'AUTOLOAD';
++
++use Tie::Hash;
++
++use vars qw($SIGACTION_FLAGS $_SIGRTMIN $_SIGRTMAX $_sigrtn @ISA);
++@POSIX::SigRt::ISA = qw(Tie::StdHash);
++
++$SIGACTION_FLAGS = 0;
++
++tie %POSIX::SIGRT, 'POSIX::SigRt';
++
++sub DESTROY {};
++
++package POSIX;
++
++1;
++__END__
++
++sub usage {
++    my ($mess) = @_;
++    croak "Usage: POSIX::$mess";
++}
++
++sub redef {
++    my ($mess) = @_;
++    croak "Use method $mess instead";
++}
++
++sub unimpl {
++    my ($mess) = @_;
++    $mess =~ s/xxx//;
++    croak "Unimplemented: POSIX::$mess";
++}
++
++sub assert {
++    usage "assert(expr)" if @_ != 1;
++    if (!$_[0]) {
++	croak "Assertion failed";
++    }
++}
++
++sub tolower {
++    usage "tolower(string)" if @_ != 1;
++    lc($_[0]);
++}
++
++sub toupper {
++    usage "toupper(string)" if @_ != 1;
++    uc($_[0]);
++}
++
++sub closedir {
++    usage "closedir(dirhandle)" if @_ != 1;
++    CORE::closedir($_[0]);
++}
++
++sub opendir {
++    usage "opendir(directory)" if @_ != 1;
++    my $dirhandle;
++    CORE::opendir($dirhandle, $_[0])
++	? $dirhandle
++	: undef;
++}
++
++sub readdir {
++    usage "readdir(dirhandle)" if @_ != 1;
++    CORE::readdir($_[0]);
++}
++
++sub rewinddir {
++    usage "rewinddir(dirhandle)" if @_ != 1;
++    CORE::rewinddir($_[0]);
++}
++
++sub errno {
++    usage "errno()" if @_ != 0;
++    $! + 0;
++}
++
++sub creat {
++    usage "creat(filename, mode)" if @_ != 2;
++    &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]);
++}
++
++sub fcntl {
++    usage "fcntl(filehandle, cmd, arg)" if @_ != 3;
++    CORE::fcntl($_[0], $_[1], $_[2]);
++}
++
++sub getgrgid {
++    usage "getgrgid(gid)" if @_ != 1;
++    CORE::getgrgid($_[0]);
++}
++
++sub getgrnam {
++    usage "getgrnam(name)" if @_ != 1;
++    CORE::getgrnam($_[0]);
++}
++
++sub atan2 {
++    usage "atan2(x,y)" if @_ != 2;
++    CORE::atan2($_[0], $_[1]);
++}
++
++sub cos {
++    usage "cos(x)" if @_ != 1;
++    CORE::cos($_[0]);
++}
++
++sub exp {
++    usage "exp(x)" if @_ != 1;
++    CORE::exp($_[0]);
++}
++
++sub fabs {
++    usage "fabs(x)" if @_ != 1;
++    CORE::abs($_[0]);
++}
++
++sub log {
++    usage "log(x)" if @_ != 1;
++    CORE::log($_[0]);
++}
++
++sub pow {
++    usage "pow(x,exponent)" if @_ != 2;
++    $_[0] ** $_[1];
++}
++
++sub sin {
++    usage "sin(x)" if @_ != 1;
++    CORE::sin($_[0]);
++}
++
++sub sqrt {
++    usage "sqrt(x)" if @_ != 1;
++    CORE::sqrt($_[0]);
++}
++
++sub getpwnam {
++    usage "getpwnam(name)" if @_ != 1;
++    CORE::getpwnam($_[0]);
++}
++
++sub getpwuid {
++    usage "getpwuid(uid)" if @_ != 1;
++    CORE::getpwuid($_[0]);
++}
++
++sub longjmp {
++    unimpl "longjmp() is C-specific: use die instead";
++}
++
++sub setjmp {
++    unimpl "setjmp() is C-specific: use eval {} instead";
++}
++
++sub siglongjmp {
++    unimpl "siglongjmp() is C-specific: use die instead";
++}
++
++sub sigsetjmp {
++    unimpl "sigsetjmp() is C-specific: use eval {} instead";
++}
++
++sub kill {
++    usage "kill(pid, sig)" if @_ != 2;
++    CORE::kill $_[1], $_[0];
++}
++
++sub raise {
++    usage "raise(sig)" if @_ != 1;
++    CORE::kill $_[0], $$;	# Is this good enough?
++}
++
++sub offsetof {
++    unimpl "offsetof() is C-specific, stopped";
++}
++
++sub clearerr {
++    redef "IO::Handle::clearerr()";
++}
++
++sub fclose {
++    redef "IO::Handle::close()";
++}
++
++sub fdopen {
++    redef "IO::Handle::new_from_fd()";
++}
++
++sub feof {
++    redef "IO::Handle::eof()";
++}
++
++sub fgetc {
++    redef "IO::Handle::getc()";
++}
++
++sub fgets {
++    redef "IO::Handle::gets()";
++}
++
++sub fileno {
++    redef "IO::Handle::fileno()";
++}
++
++sub fopen {
++    redef "IO::File::open()";
++}
++
++sub fprintf {
++    unimpl "fprintf() is C-specific--use printf instead";
++}
++
++sub fputc {
++    unimpl "fputc() is C-specific--use print instead";
++}
++
++sub fputs {
++    unimpl "fputs() is C-specific--use print instead";
++}
++
++sub fread {
++    unimpl "fread() is C-specific--use read instead";
++}
++
++sub freopen {
++    unimpl "freopen() is C-specific--use open instead";
++}
++
++sub fscanf {
++    unimpl "fscanf() is C-specific--use <> and regular expressions instead";
++}
++
++sub fseek {
++    redef "IO::Seekable::seek()";
++}
++
++sub fsync {
++    redef "IO::Handle::sync()";
++}
++
++sub ferror {
++    redef "IO::Handle::error()";
++}
++
++sub fflush {
++    redef "IO::Handle::flush()";
++}
++
++sub fgetpos {
++    redef "IO::Seekable::getpos()";
++}
++
++sub fsetpos {
++    redef "IO::Seekable::setpos()";
++}
++
++sub ftell {
++    redef "IO::Seekable::tell()";
++}
++
++sub fwrite {
++    unimpl "fwrite() is C-specific--use print instead";
++}
++
++sub getc {
++    usage "getc(handle)" if @_ != 1;
++    CORE::getc($_[0]);
++}
++
++sub getchar {
++    usage "getchar()" if @_ != 0;
++    CORE::getc(STDIN);
++}
++
++sub gets {
++    usage "gets()" if @_ != 0;
++    scalar <STDIN>;
++}
++
++sub perror {
++    print STDERR "@_: " if @_;
++    print STDERR $!,"\n";
++}
++
++sub printf {
++    usage "printf(pattern, args...)" if @_ < 1;
++    CORE::printf STDOUT @_;
++}
++
++sub putc {
++    unimpl "putc() is C-specific--use print instead";
++}
++
++sub putchar {
++    unimpl "putchar() is C-specific--use print instead";
++}
++
++sub puts {
++    unimpl "puts() is C-specific--use print instead";
++}
++
++sub remove {
++    usage "remove(filename)" if @_ != 1;
++    (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0]);
++}
++
++sub rename {
++    usage "rename(oldfilename, newfilename)" if @_ != 2;
++    CORE::rename($_[0], $_[1]);
++}
++
++sub rewind {
++    usage "rewind(filehandle)" if @_ != 1;
++    CORE::seek($_[0],0,0);
++}
++
++sub scanf {
++    unimpl "scanf() is C-specific--use <> and regular expressions instead";
++}
++
++sub sprintf {
++    usage "sprintf(pattern,args)" if @_ == 0;
++    CORE::sprintf(shift,@_);
++}
++
++sub sscanf {
++    unimpl "sscanf() is C-specific--use regular expressions instead";
++}
++
++sub tmpfile {
++    redef "IO::File::new_tmpfile()";
++}
++
++sub ungetc {
++    redef "IO::Handle::ungetc()";
++}
++
++sub vfprintf {
++    unimpl "vfprintf() is C-specific";
++}
++
++sub vprintf {
++    unimpl "vprintf() is C-specific";
++}
++
++sub vsprintf {
++    unimpl "vsprintf() is C-specific";
++}
++
++sub abs {
++    usage "abs(x)" if @_ != 1;
++    CORE::abs($_[0]);
++}
++
++sub atexit {
++    unimpl "atexit() is C-specific: use END {} instead";
++}
++
++sub atof {
++    unimpl "atof() is C-specific, stopped";
++}
++
++sub atoi {
++    unimpl "atoi() is C-specific, stopped";
++}
++
++sub atol {
++    unimpl "atol() is C-specific, stopped";
++}
++
++sub bsearch {
++    unimpl "bsearch() not supplied";
++}
++
++sub calloc {
++    unimpl "calloc() is C-specific, stopped";
++}
++
++sub div {
++    unimpl "div() is C-specific, use /, % and int instead";
++}
++
++sub exit {
++    usage "exit(status)" if @_ != 1;
++    CORE::exit($_[0]);
++}
++
++sub free {
++    unimpl "free() is C-specific, stopped";
++}
++
++sub getenv {
++    usage "getenv(name)" if @_ != 1;
++    $ENV{$_[0]};
++}
++
++sub labs {
++    unimpl "labs() is C-specific, use abs instead";
++}
++
++sub ldiv {
++    unimpl "ldiv() is C-specific, use /, % and int instead";
++}
++
++sub malloc {
++    unimpl "malloc() is C-specific, stopped";
++}
++
++sub qsort {
++    unimpl "qsort() is C-specific, use sort instead";
++}
++
++sub rand {
++    unimpl "rand() is non-portable, use Perl's rand instead";
++}
++
++sub realloc {
++    unimpl "realloc() is C-specific, stopped";
++}
++
++sub srand {
++    unimpl "srand()";
++}
++
++sub system {
++    usage "system(command)" if @_ != 1;
++    CORE::system($_[0]);
++}
++
++sub memchr {
++    unimpl "memchr() is C-specific, use index() instead";
++}
++
++sub memcmp {
++    unimpl "memcmp() is C-specific, use eq instead";
++}
++
++sub memcpy {
++    unimpl "memcpy() is C-specific, use = instead";
++}
++
++sub memmove {
++    unimpl "memmove() is C-specific, use = instead";
++}
++
++sub memset {
++    unimpl "memset() is C-specific, use x instead";
++}
++
++sub strcat {
++    unimpl "strcat() is C-specific, use .= instead";
++}
++
++sub strchr {
++    unimpl "strchr() is C-specific, use index() instead";
++}
++
++sub strcmp {
++    unimpl "strcmp() is C-specific, use eq instead";
++}
++
++sub strcpy {
++    unimpl "strcpy() is C-specific, use = instead";
++}
++
++sub strcspn {
++    unimpl "strcspn() is C-specific, use regular expressions instead";
++}
++
++sub strerror {
++    usage "strerror(errno)" if @_ != 1;
++    local $! = $_[0];
++    $! . "";
++}
++
++sub strlen {
++    unimpl "strlen() is C-specific, use length instead";
++}
++
++sub strncat {
++    unimpl "strncat() is C-specific, use .= instead";
++}
++
++sub strncmp {
++    unimpl "strncmp() is C-specific, use eq instead";
++}
++
++sub strncpy {
++    unimpl "strncpy() is C-specific, use = instead";
++}
++
++sub strpbrk {
++    unimpl "strpbrk() is C-specific, stopped";
++}
++
++sub strrchr {
++    unimpl "strrchr() is C-specific, use rindex() instead";
++}
++
++sub strspn {
++    unimpl "strspn() is C-specific, stopped";
++}
++
++sub strstr {
++    usage "strstr(big, little)" if @_ != 2;
++    CORE::index($_[0], $_[1]);
++}
++
++sub strtok {
++    unimpl "strtok() is C-specific, stopped";
++}
++
++sub chmod {
++    usage "chmod(mode, filename)" if @_ != 2;
++    CORE::chmod($_[0], $_[1]);
++}
++
++sub fstat {
++    usage "fstat(fd)" if @_ != 1;
++    local *TMP;
++    CORE::open(TMP, "<&$_[0]");		# Gross.
++    my @l = CORE::stat(TMP);
++    CORE::close(TMP);
++    @l;
++}
++
++sub mkdir {
++    usage "mkdir(directoryname, mode)" if @_ != 2;
++    CORE::mkdir($_[0], $_[1]);
++}
++
++sub stat {
++    usage "stat(filename)" if @_ != 1;
++    CORE::stat($_[0]);
++}
++
++sub umask {
++    usage "umask(mask)" if @_ != 1;
++    CORE::umask($_[0]);
++}
++
++sub wait {
++    usage "wait()" if @_ != 0;
++    CORE::wait();
++}
++
++sub waitpid {
++    usage "waitpid(pid, options)" if @_ != 2;
++    CORE::waitpid($_[0], $_[1]);
++}
++
++sub gmtime {
++    usage "gmtime(time)" if @_ != 1;
++    CORE::gmtime($_[0]);
++}
++
++sub localtime {
++    usage "localtime(time)" if @_ != 1;
++    CORE::localtime($_[0]);
++}
++
++sub time {
++    usage "time()" if @_ != 0;
++    CORE::time;
++}
++
++sub alarm {
++    usage "alarm(seconds)" if @_ != 1;
++    CORE::alarm($_[0]);
++}
++
++sub chdir {
++    usage "chdir(directory)" if @_ != 1;
++    CORE::chdir($_[0]);
++}
++
++sub chown {
++    usage "chown(uid, gid, filename)" if @_ != 3;
++    CORE::chown($_[0], $_[1], $_[2]);
++}
++
++sub execl {
++    unimpl "execl() is C-specific, stopped";
++}
++
++sub execle {
++    unimpl "execle() is C-specific, stopped";
++}
++
++sub execlp {
++    unimpl "execlp() is C-specific, stopped";
++}
++
++sub execv {
++    unimpl "execv() is C-specific, stopped";
++}
++
++sub execve {
++    unimpl "execve() is C-specific, stopped";
++}
++
++sub execvp {
++    unimpl "execvp() is C-specific, stopped";
++}
++
++sub fork {
++    usage "fork()" if @_ != 0;
++    CORE::fork;
++}
++
++sub getegid {
++    usage "getegid()" if @_ != 0;
++    $) + 0;
++}
++
++sub geteuid {
++    usage "geteuid()" if @_ != 0;
++    $> + 0;
++}
++
++sub getgid {
++    usage "getgid()" if @_ != 0;
++    $( + 0;
++}
++
++sub getgroups {
++    usage "getgroups()" if @_ != 0;
++    my %seen;
++    grep(!$seen{$_}++, split(' ', $) ));
++}
++
++sub getlogin {
++    usage "getlogin()" if @_ != 0;
++    CORE::getlogin();
++}
++
++sub getpgrp {
++    usage "getpgrp()" if @_ != 0;
++    CORE::getpgrp;
++}
++
++sub getpid {
++    usage "getpid()" if @_ != 0;
++    $$;
++}
++
++sub getppid {
++    usage "getppid()" if @_ != 0;
++    CORE::getppid;
++}
++
++sub getuid {
++    usage "getuid()" if @_ != 0;
++    $<;
++}
++
++sub isatty {
++    usage "isatty(filehandle)" if @_ != 1;
++    -t $_[0];
++}
++
++sub link {
++    usage "link(oldfilename, newfilename)" if @_ != 2;
++    CORE::link($_[0], $_[1]);
++}
++
++sub rmdir {
++    usage "rmdir(directoryname)" if @_ != 1;
++    CORE::rmdir($_[0]);
++}
++
++sub setbuf {
++    redef "IO::Handle::setbuf()";
++}
++
++sub setvbuf {
++    redef "IO::Handle::setvbuf()";
++}
++
++sub sleep {
++    usage "sleep(seconds)" if @_ != 1;
++    $_[0] - CORE::sleep($_[0]);
++}
++
++sub unlink {
++    usage "unlink(filename)" if @_ != 1;
++    CORE::unlink($_[0]);
++}
++
++sub utime {
++    usage "utime(filename, atime, mtime)" if @_ != 3;
++    CORE::utime($_[1], $_[2], $_[0]);
++}
++
++sub load_imports {
++%EXPORT_TAGS = (
++
++    assert_h =>	[qw(assert NDEBUG)],
++
++    ctype_h =>	[qw(isalnum isalpha iscntrl isdigit isgraph islower
++		isprint ispunct isspace isupper isxdigit tolower toupper)],
++
++    dirent_h =>	[],
++
++    errno_h =>	[qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT
++		EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED
++		ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT
++		EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS
++		EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
++		EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH
++		ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM
++		ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR
++		ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
++		EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE
++		ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT
++		ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY
++		EUSERS EWOULDBLOCK EXDEV errno)],
++
++    fcntl_h =>	[qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK
++		F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK
++		O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK
++		O_RDONLY O_RDWR O_TRUNC O_WRONLY
++		creat
++		SEEK_CUR SEEK_END SEEK_SET
++		S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
++		S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID
++		S_IWGRP S_IWOTH S_IWUSR)],
++
++    float_h =>	[qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG
++		DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP
++		DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP
++		FLT_DIG FLT_EPSILON FLT_MANT_DIG
++		FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP
++		FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP
++		FLT_RADIX FLT_ROUNDS
++		LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG
++		LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP
++		LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)],
++
++    grp_h =>	[],
++
++    limits_h =>	[qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX
++		INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON
++		MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX
++		PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN
++		SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX
++		ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX
++		_POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT
++		_POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX
++		_POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX
++		_POSIX_STREAM_MAX _POSIX_TZNAME_MAX)],
++
++    locale_h =>	[qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES
++		    LC_MONETARY LC_NUMERIC LC_TIME NULL
++		    localeconv setlocale)],
++
++    math_h =>	[qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod
++		frexp ldexp log10 modf pow sinh tan tanh)],
++
++    pwd_h =>	[],
++
++    setjmp_h =>	[qw(longjmp setjmp siglongjmp sigsetjmp)],
++
++    signal_h =>	[qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK
++		SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM
++		SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL
++		SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP
++		SIGTERM SIGTSTP SIGTTIN	SIGTTOU SIGUSR1 SIGUSR2
++		SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK
++		raise sigaction signal sigpending sigprocmask sigsuspend)],
++
++    stdarg_h =>	[],
++
++    stddef_h =>	[qw(NULL offsetof)],
++
++    stdio_h =>	[qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid
++		L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET
++		STREAM_MAX TMP_MAX stderr stdin stdout
++		clearerr fclose fdopen feof ferror fflush fgetc fgetpos
++		fgets fopen fprintf fputc fputs fread freopen
++		fscanf fseek fsetpos ftell fwrite getchar gets
++		perror putc putchar puts remove rewind
++		scanf setbuf setvbuf sscanf tmpfile tmpnam
++		ungetc vfprintf vprintf vsprintf)],
++
++    stdlib_h =>	[qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX
++		abort atexit atof atoi atol bsearch calloc div
++		free getenv labs ldiv malloc mblen mbstowcs mbtowc
++		qsort realloc strtod strtol strtoul wcstombs wctomb)],
++
++    string_h =>	[qw(NULL memchr memcmp memcpy memmove memset strcat
++		strchr strcmp strcoll strcpy strcspn strerror strlen
++		strncat strncmp strncpy strpbrk strrchr strspn strstr
++		strtok strxfrm)],
++
++    sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
++		S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG
++		S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
++		fstat mkfifo)],
++
++    sys_times_h => [],
++
++    sys_types_h => [],
++
++    sys_utsname_h => [qw(uname)],
++
++    sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED
++		WNOHANG WSTOPSIG WTERMSIG WUNTRACED)],
++
++    termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400
++		B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL
++		CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK
++		ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR
++		INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST
++		PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION
++		TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW
++		TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART
++		VSTOP VSUSP VTIME
++		cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain
++		tcflow tcflush tcgetattr tcsendbreak tcsetattr )],
++
++    time_h =>	[qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime
++		difftime mktime strftime tzset tzname)],
++
++    unistd_h =>	[qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET
++		STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK
++		_PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON
++		_PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX
++		_PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED
++		_POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS
++		_POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX
++		_SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL
++		_SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS
++		_SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
++		_exit access ctermid cuserid
++		dup2 dup execl execle execlp execv execve execvp
++		fpathconf fsync getcwd getegid geteuid getgid getgroups
++		getpid getuid isatty lseek pathconf pause setgid setpgid
++		setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)],
++
++    utime_h =>	[],
++
++);
++
++# Exporter::export_tags();
++{
++  # De-duplicate the export list: 
++  my %export;
++  @export{map {@$_} values %EXPORT_TAGS} = ();
++  # Doing the de-dup with a temporary hash has the advantage that the SVs in
++  # @EXPORT are actually shared hash key sacalars, which will save some memory.
++  push @EXPORT, keys %export;
++}
++
++@EXPORT_OK = qw(
++		abs
++		alarm
++		atan2
++		chdir
++		chmod
++		chown
++		close
++		closedir
++		cos
++		exit
++		exp
++		fcntl
++		fileno
++		fork
++		getc
++		getgrgid
++		getgrnam
++		getlogin
++		getpgrp
++		getppid
++		getpwnam
++		getpwuid
++		gmtime
++		isatty
++		kill
++		lchown
++		link
++		localtime
++		log
++		mkdir
++		nice
++		open
++		opendir
++		pipe
++		printf
++		rand
++		read
++		readdir
++		rename
++		rewinddir
++		rmdir
++		sin
++		sleep
++		sprintf
++		sqrt
++		srand
++		stat
++		system
++		time
++		times
++		umask
++		unlink
++		utime
++		wait
++		waitpid
++		write
++);
++
++require Exporter;
++}
++
++package POSIX::SigAction;
++
++sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] }
++sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} };
++sub mask    { $_[0]->{MASK}    = $_[1] if @_ > 1; $_[0]->{MASK} };
++sub flags   { $_[0]->{FLAGS}   = $_[1] if @_ > 1; $_[0]->{FLAGS} };
++sub safe    { $_[0]->{SAFE}    = $_[1] if @_ > 1; $_[0]->{SAFE} };
++
++package POSIX::SigRt;
++
++
++sub _init {
++    $_SIGRTMIN = &POSIX::SIGRTMIN;
++    $_SIGRTMAX = &POSIX::SIGRTMAX;
++    $_sigrtn   = $_SIGRTMAX - $_SIGRTMIN;
++}
++
++sub _croak {
++    &_init unless defined $_sigrtn;
++    die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0;
++}
++
++sub _getsig {
++    &_croak;
++    my $rtsig = $_[0];
++    # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C.
++    $rtsig = $_SIGRTMIN + ($1 || 0)
++	if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/;
++    return $rtsig;
++}
++
++sub _exist {
++    my $rtsig = _getsig($_[1]);
++    my $ok    = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX;
++    ($rtsig, $ok);
++}
++
++sub _check {
++    my ($rtsig, $ok) = &_exist;
++    die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)"
++	unless $ok;
++    return $rtsig;
++}
++
++sub new {
++    my ($rtsig, $handler, $flags) = @_;
++    my $sigset = POSIX::SigSet->new($rtsig);
++    my $sigact = POSIX::SigAction->new($handler,
++				       $sigset,
++				       $flags);
++    POSIX::sigaction($rtsig, $sigact);
++}
++
++sub EXISTS { &_exist }
++sub FETCH  { my $rtsig = &_check;
++	     my $oa = POSIX::SigAction->new();
++	     POSIX::sigaction($rtsig, undef, $oa);
++	     return $oa->{HANDLER} }
++sub STORE  { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) }
++sub DELETE { delete $SIG{ &_check } }
++sub CLEAR  { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } }
++sub SCALAR { &_croak; $_sigrtn + 1 }
+diff --git a/ext/POSIX/lib/POSIX.pod b/ext/POSIX/lib/POSIX.pod
+new file mode 100644
+index 0000000..64852e9
+--- /dev/null
++++ b/ext/POSIX/lib/POSIX.pod
+@@ -0,0 +1,2218 @@
++=head1 NAME
++
++POSIX - Perl interface to IEEE Std 1003.1
++
++=head1 SYNOPSIS
++
++    use POSIX;
++    use POSIX qw(setsid);
++    use POSIX qw(:errno_h :fcntl_h);
++
++    printf "EINTR is %d\n", EINTR;
++
++    $sess_id = POSIX::setsid();
++
++    $fd = POSIX::open($path, O_CREAT|O_EXCL|O_WRONLY, 0644);
++	# note: that's a filedescriptor, *NOT* a filehandle
++
++=head1 DESCRIPTION
++
++The POSIX module permits you to access all (or nearly all) the standard
++POSIX 1003.1 identifiers.  Many of these identifiers have been given Perl-ish
++interfaces.
++
++I<Everything is exported by default> with the exception of any POSIX
++functions with the same name as a built-in Perl function, such as
++C<abs>, C<alarm>, C<rmdir>, C<write>, etc.., which will be exported
++only if you ask for them explicitly.  This is an unfortunate backwards
++compatibility feature.  You can stop the exporting by saying C<use
++POSIX ()> and then use the fully qualified names (ie. C<POSIX::SEEK_END>).
++
++This document gives a condensed list of the features available in the POSIX
++module.  Consult your operating system's manpages for general information on
++most features.  Consult L<perlfunc> for functions which are noted as being
++identical to Perl's builtin functions.
++
++The first section describes POSIX functions from the 1003.1 specification.
++The second section describes some classes for signal objects, TTY objects,
++and other miscellaneous objects.  The remaining sections list various
++constants and macros in an organization which roughly follows IEEE Std
++1003.1b-1993.
++
++=head1 NOTE
++
++The POSIX module is probably the most complex Perl module supplied with
++the standard distribution.  It incorporates autoloading, namespace games,
++and dynamic loading of code that's in Perl, C, or both.  It's a great
++source of wisdom.
++
++=head1 CAVEATS
++
++A few functions are not implemented because they are C specific.  If you
++attempt to call these, they will print a message telling you that they
++aren't implemented, and suggest using the Perl equivalent should one
++exist.  For example, trying to access the setjmp() call will elicit the
++message "setjmp() is C-specific: use eval {} instead".
++
++Furthermore, some evil vendors will claim 1003.1 compliance, but in fact
++are not so: they will not pass the PCTS (POSIX Compliance Test Suites).
++For example, one vendor may not define EDEADLK, or the semantics of the
++errno values set by open(2) might not be quite right.  Perl does not
++attempt to verify POSIX compliance.  That means you can currently
++successfully say "use POSIX",  and then later in your program you find
++that your vendor has been lax and there's no usable ICANON macro after
++all.  This could be construed to be a bug.
++
++=head1 FUNCTIONS
++
++=over 8
++
++=item _exit
++
++This is identical to the C function C<_exit()>.  It exits the program
++immediately which means among other things buffered I/O is B<not> flushed.
++
++Note that when using threads and in Linux this is B<not> a good way to
++exit a thread because in Linux processes and threads are kind of the
++same thing (Note: while this is the situation in early 2003 there are
++projects under way to have threads with more POSIXly semantics in Linux).
++If you want not to return from a thread, detach the thread.
++
++=item abort
++
++This is identical to the C function C<abort()>.  It terminates the
++process with a C<SIGABRT> signal unless caught by a signal handler or
++if the handler does not return normally (it e.g.  does a C<longjmp>).
++
++=item abs
++
++This is identical to Perl's builtin C<abs()> function, returning
++the absolute value of its numerical argument.
++
++=item access
++
++Determines the accessibility of a file.
++
++	if( POSIX::access( "/", &POSIX::R_OK ) ){
++		print "have read permission\n";
++	}
++
++Returns C<undef> on failure.  Note: do not use C<access()> for
++security purposes.  Between the C<access()> call and the operation
++you are preparing for the permissions might change: a classic
++I<race condition>.
++
++=item acos
++
++This is identical to the C function C<acos()>, returning
++the arcus cosine of its numerical argument.  See also L<Math::Trig>.
++
++=item alarm
++
++This is identical to Perl's builtin C<alarm()> function,
++either for arming or disarming the C<SIGARLM> timer.
++
++=item asctime
++
++This is identical to the C function C<asctime()>.  It returns
++a string of the form
++
++	"Fri Jun  2 18:22:13 2000\n\0"
++
++and it is called thusly
++
++	$asctime = asctime($sec, $min, $hour, $mday, $mon, $year,
++			   $wday, $yday, $isdst);
++
++The C<$mon> is zero-based: January equals C<0>.  The C<$year> is
++1900-based: 2001 equals C<101>.  C<$wday> and C<$yday> default to zero
++(and are usually ignored anyway), and C<$isdst> defaults to -1.
++
++=item asin
++
++This is identical to the C function C<asin()>, returning
++the arcus sine of its numerical argument.  See also L<Math::Trig>.
++
++=item assert
++
++Unimplemented, but you can use L<perlfunc/die> and the L<Carp> module
++to achieve similar things.
++
++=item atan
++
++This is identical to the C function C<atan()>, returning the
++arcus tangent of its numerical argument.  See also L<Math::Trig>.
++
++=item atan2
++
++This is identical to Perl's builtin C<atan2()> function, returning
++the arcus tangent defined by its two numerical arguments, the I<y>
++coordinate and the I<x> coordinate.  See also L<Math::Trig>.
++
++=item atexit
++
++atexit() is C-specific: use C<END {}> instead, see L<perlsub>.
++
++=item atof
++
++atof() is C-specific.  Perl converts strings to numbers transparently.
++If you need to force a scalar to a number, add a zero to it.
++
++=item atoi
++
++atoi() is C-specific.  Perl converts strings to numbers transparently.
++If you need to force a scalar to a number, add a zero to it.
++If you need to have just the integer part, see L<perlfunc/int>.
++
++=item atol
++
++atol() is C-specific.  Perl converts strings to numbers transparently.
++If you need to force a scalar to a number, add a zero to it.
++If you need to have just the integer part, see L<perlfunc/int>.
++
++=item bsearch
++
++bsearch() not supplied.  For doing binary search on wordlists,
++see L<Search::Dict>.
++
++=item calloc
++
++calloc() is C-specific.  Perl does memory management transparently.
++
++=item ceil
++
++This is identical to the C function C<ceil()>, returning the smallest
++integer value greater than or equal to the given numerical argument.
++
++=item chdir
++
++This is identical to Perl's builtin C<chdir()> function, allowing
++one to change the working (default) directory, see L<perlfunc/chdir>.
++
++=item chmod
++
++This is identical to Perl's builtin C<chmod()> function, allowing
++one to change file and directory permissions, see L<perlfunc/chmod>.
++
++=item chown
++
++This is identical to Perl's builtin C<chown()> function, allowing one
++to change file and directory owners and groups, see L<perlfunc/chown>.
++
++=item clearerr
++
++Use the method C<IO::Handle::clearerr()> instead, to reset the error
++state (if any) and EOF state (if any) of the given stream.
++
++=item clock
++
++This is identical to the C function C<clock()>, returning the
++amount of spent processor time in microseconds.
++
++=item close
++
++Close the file.  This uses file descriptors such as those obtained by calling
++C<POSIX::open>.
++
++	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
++	POSIX::close( $fd );
++
++Returns C<undef> on failure.
++
++See also L<perlfunc/close>.
++
++=item closedir
++
++This is identical to Perl's builtin C<closedir()> function for closing
++a directory handle, see L<perlfunc/closedir>.
++
++=item cos
++
++This is identical to Perl's builtin C<cos()> function, for returning
++the cosine of its numerical argument, see L<perlfunc/cos>.
++See also L<Math::Trig>.
++
++=item cosh
++
++This is identical to the C function C<cosh()>, for returning
++the hyperbolic cosine of its numeric argument.  See also L<Math::Trig>.
++
++=item creat
++
++Create a new file.  This returns a file descriptor like the ones returned by
++C<POSIX::open>.  Use C<POSIX::close> to close the file.
++
++	$fd = POSIX::creat( "foo", 0611 );
++	POSIX::close( $fd );
++
++See also L<perlfunc/sysopen> and its C<O_CREAT> flag.
++
++=item ctermid
++
++Generates the path name for the controlling terminal.
++
++	$path = POSIX::ctermid();
++
++=item ctime
++
++This is identical to the C function C<ctime()> and equivalent
++to C<asctime(localtime(...))>, see L</asctime> and L</localtime>.
++
++=item cuserid
++
++Get the login name of the owner of the current process.
++
++	$name = POSIX::cuserid();
++
++=item difftime
++
++This is identical to the C function C<difftime()>, for returning
++the time difference (in seconds) between two times (as returned
++by C<time()>), see L</time>.
++
++=item div
++
++div() is C-specific, use L<perlfunc/int> on the usual C</> division and
++the modulus C<%>.
++
++=item dup
++
++This is similar to the C function C<dup()>, for duplicating a file
++descriptor.
++
++This uses file descriptors such as those obtained by calling
++C<POSIX::open>.
++
++Returns C<undef> on failure.
++
++=item dup2
++
++This is similar to the C function C<dup2()>, for duplicating a file
++descriptor to an another known file descriptor.
++
++This uses file descriptors such as those obtained by calling
++C<POSIX::open>.
++
++Returns C<undef> on failure.
++
++=item errno
++
++Returns the value of errno.
++
++	$errno = POSIX::errno();
++
++This identical to the numerical values of the C<$!>, see L<perlvar/$ERRNO>.
++
++=item execl
++
++execl() is C-specific, see L<perlfunc/exec>.
++
++=item execle
++
++execle() is C-specific, see L<perlfunc/exec>.
++
++=item execlp
++
++execlp() is C-specific, see L<perlfunc/exec>.
++
++=item execv
++
++execv() is C-specific, see L<perlfunc/exec>.
++
++=item execve
++
++execve() is C-specific, see L<perlfunc/exec>.
++
++=item execvp
++
++execvp() is C-specific, see L<perlfunc/exec>.
++
++=item exit
++
++This is identical to Perl's builtin C<exit()> function for exiting the
++program, see L<perlfunc/exit>.
++
++=item exp
++
++This is identical to Perl's builtin C<exp()> function for
++returning the exponent (I<e>-based) of the numerical argument,
++see L<perlfunc/exp>.
++
++=item fabs
++
++This is identical to Perl's builtin C<abs()> function for returning
++the absolute value of the numerical argument, see L<perlfunc/abs>.
++
++=item fclose
++
++Use method C<IO::Handle::close()> instead, or see L<perlfunc/close>.
++
++=item fcntl
++
++This is identical to Perl's builtin C<fcntl()> function,
++see L<perlfunc/fcntl>.
++
++=item fdopen
++
++Use method C<IO::Handle::new_from_fd()> instead, or see L<perlfunc/open>.
++
++=item feof
++
++Use method C<IO::Handle::eof()> instead, or see L<perlfunc/eof>.
++
++=item ferror
++
++Use method C<IO::Handle::error()> instead.
++
++=item fflush
++
++Use method C<IO::Handle::flush()> instead.
++See also L<perlvar/$OUTPUT_AUTOFLUSH>.
++
++=item fgetc
++
++Use method C<IO::Handle::getc()> instead, or see L<perlfunc/read>.
++
++=item fgetpos
++
++Use method C<IO::Seekable::getpos()> instead, or see L<L/seek>.
++
++=item fgets
++
++Use method C<IO::Handle::gets()> instead.  Similar to E<lt>E<gt>, also known
++as L<perlfunc/readline>.
++
++=item fileno
++
++Use method C<IO::Handle::fileno()> instead, or see L<perlfunc/fileno>.
++
++=item floor
++
++This is identical to the C function C<floor()>, returning the largest
++integer value less than or equal to the numerical argument.
++
++=item fmod
++
++This is identical to the C function C<fmod()>.
++
++	$r = fmod($x, $y);
++
++It returns the remainder C<$r = $x - $n*$y>, where C<$n = trunc($x/$y)>.
++The C<$r> has the same sign as C<$x> and magnitude (absolute value)
++less than the magnitude of C<$y>.
++
++=item fopen
++
++Use method C<IO::File::open()> instead, or see L<perlfunc/open>.
++
++=item fork
++
++This is identical to Perl's builtin C<fork()> function
++for duplicating the current process, see L<perlfunc/fork>
++and L<perlfork> if you are in Windows.
++
++=item fpathconf
++
++Retrieves the value of a configurable limit on a file or directory.  This
++uses file descriptors such as those obtained by calling C<POSIX::open>.
++
++The following will determine the maximum length of the longest allowable
++pathname on the filesystem which holds C</var/foo>.
++
++	$fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY );
++	$path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX );
++
++Returns C<undef> on failure.
++
++=item fprintf
++
++fprintf() is C-specific, see L<perlfunc/printf> instead.
++
++=item fputc
++
++fputc() is C-specific, see L<perlfunc/print> instead.
++
++=item fputs
++
++fputs() is C-specific, see L<perlfunc/print> instead.
++
++=item fread
++
++fread() is C-specific, see L<perlfunc/read> instead.
++
++=item free
++
++free() is C-specific.  Perl does memory management transparently.
++
++=item freopen
++
++freopen() is C-specific, see L<perlfunc/open> instead.
++
++=item frexp
++
++Return the mantissa and exponent of a floating-point number.
++
++	($mantissa, $exponent) = POSIX::frexp( 1.234e56 );
++
++=item fscanf
++
++fscanf() is C-specific, use E<lt>E<gt> and regular expressions instead.
++
++=item fseek
++
++Use method C<IO::Seekable::seek()> instead, or see L<perlfunc/seek>.
++
++=item fsetpos
++
++Use method C<IO::Seekable::setpos()> instead, or seek L<perlfunc/seek>.
++
++=item fstat
++
++Get file status.  This uses file descriptors such as those obtained by
++calling C<POSIX::open>.  The data returned is identical to the data from
++Perl's builtin C<stat> function.
++
++	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
++	@stats = POSIX::fstat( $fd );
++
++=item fsync
++
++Use method C<IO::Handle::sync()> instead.
++
++=item ftell
++
++Use method C<IO::Seekable::tell()> instead, or see L<perlfunc/tell>.
++
++=item fwrite
++
++fwrite() is C-specific, see L<perlfunc/print> instead.
++
++=item getc
++
++This is identical to Perl's builtin C<getc()> function,
++see L<perlfunc/getc>.
++
++=item getchar
++
++Returns one character from STDIN.  Identical to Perl's C<getc()>,
++see L<perlfunc/getc>.
++
++=item getcwd
++
++Returns the name of the current working directory.
++See also L<Cwd>.
++
++=item getegid
++
++Returns the effective group identifier.  Similar to Perl' s builtin
++variable C<$(>, see L<perlvar/$EGID>.
++
++=item getenv
++
++Returns the value of the specified environment variable.
++The same information is available through the C<%ENV> array.
++
++=item geteuid
++
++Returns the effective user identifier.  Identical to Perl's builtin C<$E<gt>>
++variable, see L<perlvar/$EUID>.
++
++=item getgid
++
++Returns the user's real group identifier.  Similar to Perl's builtin
++variable C<$)>, see L<perlvar/$GID>.
++
++=item getgrgid
++
++This is identical to Perl's builtin C<getgrgid()> function for
++returning group entries by group identifiers, see
++L<perlfunc/getgrgid>.
++
++=item getgrnam
++
++This is identical to Perl's builtin C<getgrnam()> function for
++returning group entries by group names, see L<perlfunc/getgrnam>.
++
++=item getgroups
++
++Returns the ids of the user's supplementary groups.  Similar to Perl's
++builtin variable C<$)>, see L<perlvar/$GID>.
++
++=item getlogin
++
++This is identical to Perl's builtin C<getlogin()> function for
++returning the user name associated with the current session, see
++L<perlfunc/getlogin>.
++
++=item getpgrp
++
++This is identical to Perl's builtin C<getpgrp()> function for
++returning the process group identifier of the current process, see
++L<perlfunc/getpgrp>.
++
++=item getpid
++
++Returns the process identifier.  Identical to Perl's builtin
++variable C<$$>, see L<perlvar/$PID>.
++
++=item getppid
++
++This is identical to Perl's builtin C<getppid()> function for
++returning the process identifier of the parent process of the current
++process , see L<perlfunc/getppid>.
++
++=item getpwnam
++
++This is identical to Perl's builtin C<getpwnam()> function for
++returning user entries by user names, see L<perlfunc/getpwnam>.
++
++=item getpwuid
++
++This is identical to Perl's builtin C<getpwuid()> function for
++returning user entries by user identifiers, see L<perlfunc/getpwuid>.
++
++=item gets
++
++Returns one line from C<STDIN>, similar to E<lt>E<gt>, also known
++as the C<readline()> function, see L<perlfunc/readline>.
++
++B<NOTE>: if you have C programs that still use C<gets()>, be very
++afraid.  The C<gets()> function is a source of endless grief because
++it has no buffer overrun checks.  It should B<never> be used.  The
++C<fgets()> function should be preferred instead.
++
++=item getuid
++
++Returns the user's identifier.  Identical to Perl's builtin C<$E<lt>> variable,
++see L<perlvar/$UID>.
++
++=item gmtime
++
++This is identical to Perl's builtin C<gmtime()> function for
++converting seconds since the epoch to a date in Greenwich Mean Time,
++see L<perlfunc/gmtime>.
++
++=item isalnum
++
++This is identical to the C function, except that it can apply to a
++single character or to a whole string.  Note that locale settings may
++affect what characters are considered C<isalnum>.  Does not work on
++Unicode characters code point 256 or higher.  Consider using regular
++expressions and the C</[[:alnum:]]/> construct instead, or possibly
++the C</\w/> construct.
++
++=item isalpha
++
++This is identical to the C function, except that it can apply to
++a single character or to a whole string.  Note that locale settings
++may affect what characters are considered C<isalpha>.  Does not work
++on Unicode characters code point 256 or higher.  Consider using regular
++expressions and the C</[[:alpha:]]/> construct instead.
++
++=item isatty
++
++Returns a boolean indicating whether the specified filehandle is connected
++to a tty.  Similar to the C<-t> operator, see L<perlfunc/-X>.
++
++=item iscntrl
++
++This is identical to the C function, except that it can apply to
++a single character or to a whole string.  Note that locale settings
++may affect what characters are considered C<iscntrl>.  Does not work
++on Unicode characters code point 256 or higher.  Consider using regular
++expressions and the C</[[:cntrl:]]/> construct instead.
++
++=item isdigit
++
++This is identical to the C function, except that it can apply to
++a single character or to a whole string.  Note that locale settings
++may affect what characters are considered C<isdigit> (unlikely, but
++still possible). Does not work on Unicode characters code point 256
++or higher.  Consider using regular expressions and the C</[[:digit:]]/>
++construct instead, or the C</\d/> construct.
++
++=item isgraph
++
++This is identical to the C function, except that it can apply to
++a single character or to a whole string.  Note that locale settings
++may affect what characters are considered C<isgraph>.  Does not work
++on Unicode characters code point 256 or higher.  Consider using regular
++expressions and the C</[[:graph:]]/> construct instead.
++
++=item islower
++
++This is identical to the C function, except that it can apply to
++a single character or to a whole string.  Note that locale settings
++may affect what characters are considered C<islower>.  Does not work
++on Unicode characters code point 256 or higher.  Consider using regular
++expressions and the C</[[:lower:]]/> construct instead.  Do B<not> use
++C</[a-z]/>.
++
++=item isprint
++
++This is identical to the C function, except that it can apply to
++a single character or to a whole string.  Note that locale settings
++may affect what characters are considered C<isprint>.  Does not work
++on Unicode characters code point 256 or higher.  Consider using regular
++expressions and the C</[[:print:]]/> construct instead.
++
++=item ispunct
++
++This is identical to the C function, except that it can apply to
++a single character or to a whole string.  Note that locale settings
++may affect what characters are considered C<ispunct>.  Does not work
++on Unicode characters code point 256 or higher.  Consider using regular
++expressions and the C</[[:punct:]]/> construct instead.
++
++=item isspace
++
++This is identical to the C function, except that it can apply to
++a single character or to a whole string.  Note that locale settings
++may affect what characters are considered C<isspace>.  Does not work
++on Unicode characters code point 256 or higher.  Consider using regular
++expressions and the C</[[:space:]]/> construct instead, or the C</\s/>
++construct.  (Note that C</\s/> and C</[[:space:]]/> are slightly
++different in that C</[[:space:]]/> can normally match a vertical tab,
++while C</\s/> does not.)
++
++=item isupper
++
++This is identical to the C function, except that it can apply to
++a single character or to a whole string.  Note that locale settings
++may affect what characters are considered C<isupper>.  Does not work
++on Unicode characters code point 256 or higher.  Consider using regular
++expressions and the C</[[:upper:]]/> construct instead.  Do B<not> use
++C</[A-Z]/>.
++
++=item isxdigit
++
++This is identical to the C function, except that it can apply to a single
++character or to a whole string.  Note that locale settings may affect what
++characters are considered C<isxdigit> (unlikely, but still possible).
++Does not work on Unicode characters code point 256 or higher.
++Consider using regular expressions and the C</[[:xdigit:]]/>
++construct instead, or simply C</[0-9a-f]/i>.
++
++=item kill
++
++This is identical to Perl's builtin C<kill()> function for sending
++signals to processes (often to terminate them), see L<perlfunc/kill>.
++
++=item labs
++
++(For returning absolute values of long integers.)
++labs() is C-specific, see L<perlfunc/abs> instead.
++
++=item lchown
++
++This is identical to the C function, except the order of arguments is
++consistent with Perl's builtin C<chown()> with the added restriction
++of only one path, not an list of paths.  Does the same thing as the 
++C<chown()> function but changes the owner of a symbolic link instead 
++of the file the symbolic link points to.
++
++=item ldexp
++
++This is identical to the C function C<ldexp()>
++for multiplying floating point numbers with powers of two.
++
++	$x_quadrupled = POSIX::ldexp($x, 2);
++
++=item ldiv
++
++(For computing dividends of long integers.)
++ldiv() is C-specific, use C</> and C<int()> instead.
++
++=item link
++
++This is identical to Perl's builtin C<link()> function
++for creating hard links into files, see L<perlfunc/link>.
++
++=item localeconv
++
++Get numeric formatting information.  Returns a reference to a hash
++containing the current locale formatting values.
++
++Here is how to query the database for the B<de> (Deutsch or German) locale.
++
++	$loc = POSIX::setlocale( &POSIX::LC_ALL, "de" );
++	print "Locale = $loc\n";
++	$lconv = POSIX::localeconv();
++	print "decimal_point	= ", $lconv->{decimal_point},	"\n";
++	print "thousands_sep	= ", $lconv->{thousands_sep},	"\n";
++	print "grouping	= ", $lconv->{grouping},	"\n";
++	print "int_curr_symbol	= ", $lconv->{int_curr_symbol},	"\n";
++	print "currency_symbol	= ", $lconv->{currency_symbol},	"\n";
++	print "mon_decimal_point = ", $lconv->{mon_decimal_point}, "\n";
++	print "mon_thousands_sep = ", $lconv->{mon_thousands_sep}, "\n";
++	print "mon_grouping	= ", $lconv->{mon_grouping},	"\n";
++	print "positive_sign	= ", $lconv->{positive_sign},	"\n";
++	print "negative_sign	= ", $lconv->{negative_sign},	"\n";
++	print "int_frac_digits	= ", $lconv->{int_frac_digits},	"\n";
++	print "frac_digits	= ", $lconv->{frac_digits},	"\n";
++	print "p_cs_precedes	= ", $lconv->{p_cs_precedes},	"\n";
++	print "p_sep_by_space	= ", $lconv->{p_sep_by_space},	"\n";
++	print "n_cs_precedes	= ", $lconv->{n_cs_precedes},	"\n";
++	print "n_sep_by_space	= ", $lconv->{n_sep_by_space},	"\n";
++	print "p_sign_posn	= ", $lconv->{p_sign_posn},	"\n";
++	print "n_sign_posn	= ", $lconv->{n_sign_posn},	"\n";
++
++=item localtime
++
++This is identical to Perl's builtin C<localtime()> function for
++converting seconds since the epoch to a date see L<perlfunc/localtime>.
++
++=item log
++
++This is identical to Perl's builtin C<log()> function,
++returning the natural (I<e>-based) logarithm of the numerical argument,
++see L<perlfunc/log>.
++
++=item log10
++
++This is identical to the C function C<log10()>,
++returning the 10-base logarithm of the numerical argument.
++You can also use
++
++    sub log10 { log($_[0]) / log(10) }
++
++or
++
++    sub log10 { log($_[0]) / 2.30258509299405 }
++
++or
++
++    sub log10 { log($_[0]) * 0.434294481903252 }
++
++=item longjmp
++
++longjmp() is C-specific: use L<perlfunc/die> instead.
++
++=item lseek
++
++Move the file's read/write position.  This uses file descriptors such as
++those obtained by calling C<POSIX::open>.
++
++	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
++	$off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET );
++
++Returns C<undef> on failure.
++
++=item malloc
++
++malloc() is C-specific.  Perl does memory management transparently.
++
++=item mblen
++
++This is identical to the C function C<mblen()>.
++Perl does not have any support for the wide and multibyte
++characters of the C standards, so this might be a rather
++useless function.
++
++=item mbstowcs
++
++This is identical to the C function C<mbstowcs()>.
++Perl does not have any support for the wide and multibyte
++characters of the C standards, so this might be a rather
++useless function.
++
++=item mbtowc
++
++This is identical to the C function C<mbtowc()>.
++Perl does not have any support for the wide and multibyte
++characters of the C standards, so this might be a rather
++useless function.
++
++=item memchr
++
++memchr() is C-specific, see L<perlfunc/index> instead.
++
++=item memcmp
++
++memcmp() is C-specific, use C<eq> instead, see L<perlop>.
++
++=item memcpy
++
++memcpy() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>.
++
++=item memmove
++
++memmove() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>.
++
++=item memset
++
++memset() is C-specific, use C<x> instead, see L<perlop>.
++
++=item mkdir
++
++This is identical to Perl's builtin C<mkdir()> function
++for creating directories, see L<perlfunc/mkdir>.
++
++=item mkfifo
++
++This is similar to the C function C<mkfifo()> for creating
++FIFO special files.
++
++	if (mkfifo($path, $mode)) { ....
++
++Returns C<undef> on failure.  The C<$mode> is similar to the
++mode of C<mkdir()>, see L<perlfunc/mkdir>, though for C<mkfifo>
++you B<must> specify the C<$mode>.
++
++=item mktime
++
++Convert date/time info to a calendar time.
++
++Synopsis:
++
++	mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = -1)
++
++The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero.
++I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1.  The
++year (C<year>) is given in years since 1900.  I.e. The year 1995 is 95; the
++year 2001 is 101.  Consult your system's C<mktime()> manpage for details
++about these and the other arguments.
++
++Calendar time for December 12, 1995, at 10:30 am.
++
++	$time_t = POSIX::mktime( 0, 30, 10, 12, 11, 95 );
++	print "Date = ", POSIX::ctime($time_t);
++
++Returns C<undef> on failure.
++
++=item modf
++
++Return the integral and fractional parts of a floating-point number.
++
++	($fractional, $integral) = POSIX::modf( 3.14 );
++
++=item nice
++
++This is similar to the C function C<nice()>, for changing
++the scheduling preference of the current process.  Positive
++arguments mean more polite process, negative values more
++needy process.  Normal user processes can only be more polite.
++
++Returns C<undef> on failure.
++
++=item offsetof
++
++offsetof() is C-specific, you probably want to see L<perlfunc/pack> instead.
++
++=item open
++
++Open a file for reading for writing.  This returns file descriptors, not
++Perl filehandles.  Use C<POSIX::close> to close the file.
++
++Open a file read-only with mode 0666.
++
++	$fd = POSIX::open( "foo" );
++
++Open a file for read and write.
++
++	$fd = POSIX::open( "foo", &POSIX::O_RDWR );
++
++Open a file for write, with truncation.
++
++	$fd = POSIX::open( "foo", &POSIX::O_WRONLY | &POSIX::O_TRUNC );
++
++Create a new file with mode 0640.  Set up the file for writing.
++
++	$fd = POSIX::open( "foo", &POSIX::O_CREAT | &POSIX::O_WRONLY, 0640 );
++
++Returns C<undef> on failure.
++
++See also L<perlfunc/sysopen>.
++
++=item opendir
++
++Open a directory for reading.
++
++	$dir = POSIX::opendir( "/var" );
++	@files = POSIX::readdir( $dir );
++	POSIX::closedir( $dir );
++
++Returns C<undef> on failure.
++
++=item pathconf
++
++Retrieves the value of a configurable limit on a file or directory.
++
++The following will determine the maximum length of the longest allowable
++pathname on the filesystem which holds C</var>.
++
++	$path_max = POSIX::pathconf( "/var", &POSIX::_PC_PATH_MAX );
++
++Returns C<undef> on failure.
++
++=item pause
++
++This is similar to the C function C<pause()>, which suspends
++the execution of the current process until a signal is received.
++
++Returns C<undef> on failure.
++
++=item perror
++
++This is identical to the C function C<perror()>, which outputs to the
++standard error stream the specified message followed by ": " and the
++current error string.  Use the C<warn()> function and the C<$!>
++variable instead, see L<perlfunc/warn> and L<perlvar/$ERRNO>.
++
++=item pipe
++
++Create an interprocess channel.  This returns file descriptors like those
++returned by C<POSIX::open>.
++
++	my ($read, $write) = POSIX::pipe();
++	POSIX::write( $write, "hello", 5 );
++	POSIX::read( $read, $buf, 5 );
++
++See also L<perlfunc/pipe>.
++
++=item pow
++
++Computes C<$x> raised to the power C<$exponent>.
++
++	$ret = POSIX::pow( $x, $exponent );
++
++You can also use the C<**> operator, see L<perlop>.
++
++=item printf
++
++Formats and prints the specified arguments to STDOUT.
++See also L<perlfunc/printf>.
++
++=item putc
++
++putc() is C-specific, see L<perlfunc/print> instead.
++
++=item putchar
++
++putchar() is C-specific, see L<perlfunc/print> instead.
++
++=item puts
++
++puts() is C-specific, see L<perlfunc/print> instead.
++
++=item qsort
++
++qsort() is C-specific, see L<perlfunc/sort> instead.
++
++=item raise
++
++Sends the specified signal to the current process.
++See also L<perlfunc/kill> and the C<$$> in L<perlvar/$PID>.
++
++=item rand
++
++C<rand()> is non-portable, see L<perlfunc/rand> instead.
++
++=item read
++
++Read from a file.  This uses file descriptors such as those obtained by
++calling C<POSIX::open>.  If the buffer C<$buf> is not large enough for the
++read then Perl will extend it to make room for the request.
++
++	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
++	$bytes = POSIX::read( $fd, $buf, 3 );
++
++Returns C<undef> on failure.
++
++See also L<perlfunc/sysread>.
++
++=item readdir
++
++This is identical to Perl's builtin C<readdir()> function
++for reading directory entries, see L<perlfunc/readdir>.
++
++=item realloc
++
++realloc() is C-specific.  Perl does memory management transparently.
++
++=item remove
++
++This is identical to Perl's builtin C<unlink()> function
++for removing files, see L<perlfunc/unlink>.
++
++=item rename
++
++This is identical to Perl's builtin C<rename()> function
++for renaming files, see L<perlfunc/rename>.
++
++=item rewind
++
++Seeks to the beginning of the file.
++
++=item rewinddir
++
++This is identical to Perl's builtin C<rewinddir()> function for
++rewinding directory entry streams, see L<perlfunc/rewinddir>.
++
++=item rmdir
++
++This is identical to Perl's builtin C<rmdir()> function
++for removing (empty) directories, see L<perlfunc/rmdir>.
++
++=item scanf
++
++scanf() is C-specific, use E<lt>E<gt> and regular expressions instead,
++see L<perlre>.
++
++=item setgid
++
++Sets the real group identifier and the effective group identifier for
++this process.  Similar to assigning a value to the Perl's builtin
++C<$)> variable, see L<perlvar/$EGID>, except that the latter
++will change only the real user identifier, and that the setgid()
++uses only a single numeric argument, as opposed to a space-separated
++list of numbers.
++
++=item setjmp
++
++C<setjmp()> is C-specific: use C<eval {}> instead,
++see L<perlfunc/eval>.
++
++=item setlocale
++
++Modifies and queries program's locale.  The following examples assume
++
++	use POSIX qw(setlocale LC_ALL LC_CTYPE);
++
++has been issued.
++
++The following will set the traditional UNIX system locale behavior
++(the second argument C<"C">).
++
++	$loc = setlocale( LC_ALL, "C" );
++
++The following will query the current LC_CTYPE category.  (No second
++argument means 'query'.)
++
++	$loc = setlocale( LC_CTYPE );
++
++The following will set the LC_CTYPE behaviour according to the locale
++environment variables (the second argument C<"">).
++Please see your systems C<setlocale(3)> documentation for the locale
++environment variables' meaning or consult L<perllocale>.
++
++	$loc = setlocale( LC_CTYPE, "" );
++
++The following will set the LC_COLLATE behaviour to Argentinian
++Spanish. B<NOTE>: The naming and availability of locales depends on
++your operating system. Please consult L<perllocale> for how to find
++out which locales are available in your system.
++
++	$loc = setlocale( LC_COLLATE, "es_AR.ISO8859-1" );
++
++=item setpgid
++
++This is similar to the C function C<setpgid()> for
++setting the process group identifier of the current process.
++
++Returns C<undef> on failure.
++
++=item setsid
++
++This is identical to the C function C<setsid()> for
++setting the session identifier of the current process.
++
++=item setuid
++
++Sets the real user identifier and the effective user identifier for
++this process.  Similar to assigning a value to the Perl's builtin
++C<$E<lt>> variable, see L<perlvar/$UID>, except that the latter
++will change only the real user identifier.
++
++=item sigaction
++
++Detailed signal management.  This uses C<POSIX::SigAction> objects for
++the C<action> and C<oldaction> arguments (the oldaction can also be
++just a hash reference).  Consult your system's C<sigaction> manpage
++for details, see also C<POSIX::SigRt>.
++
++Synopsis:
++
++	sigaction(signal, action, oldaction = 0)
++
++Returns C<undef> on failure.  The C<signal> must be a number (like
++SIGHUP), not a string (like "SIGHUP"), though Perl does try hard
++to understand you.
++
++If you use the SA_SIGINFO flag, the signal handler will in addition to
++the first argument, the signal name, also receive a second argument, a
++hash reference, inside which are the following keys with the following
++semantics, as defined by POSIX/SUSv3:
++
++    signo       the signal number
++    errno       the error number
++    code        if this is zero or less, the signal was sent by
++                a user process and the uid and pid make sense,
++                otherwise the signal was sent by the kernel
++
++The following are also defined by POSIX/SUSv3, but unfortunately
++not very widely implemented:
++
++    pid         the process id generating the signal
++    uid         the uid of the process id generating the signal
++    status      exit value or signal for SIGCHLD
++    band        band event for SIGPOLL
++
++A third argument is also passed to the handler, which contains a copy
++of the raw binary contents of the siginfo structure: if a system has
++some non-POSIX fields, this third argument is where to unpack() them
++from.
++
++Note that not all siginfo values make sense simultaneously (some are
++valid only for certain signals, for example), and not all values make
++sense from Perl perspective, you should to consult your system's
++C<sigaction> and possibly also C<siginfo> documentation.
++
++=item siglongjmp
++
++siglongjmp() is C-specific: use L<perlfunc/die> instead.
++
++=item sigpending
++
++Examine signals that are blocked and pending.  This uses C<POSIX::SigSet>
++objects for the C<sigset> argument.  Consult your system's C<sigpending>
++manpage for details.
++
++Synopsis:
++
++	sigpending(sigset)
++
++Returns C<undef> on failure.
++
++=item sigprocmask
++
++Change and/or examine calling process's signal mask.  This uses
++C<POSIX::SigSet> objects for the C<sigset> and C<oldsigset> arguments.
++Consult your system's C<sigprocmask> manpage for details.
++
++Synopsis:
++
++	sigprocmask(how, sigset, oldsigset = 0)
++
++Returns C<undef> on failure.
++
++=item sigsetjmp
++
++C<sigsetjmp()> is C-specific: use C<eval {}> instead,
++see L<perlfunc/eval>.
++
++=item sigsuspend
++
++Install a signal mask and suspend process until signal arrives.  This uses
++C<POSIX::SigSet> objects for the C<signal_mask> argument.  Consult your
++system's C<sigsuspend> manpage for details.
++
++Synopsis:
++
++	sigsuspend(signal_mask)
++
++Returns C<undef> on failure.
++
++=item sin
++
++This is identical to Perl's builtin C<sin()> function
++for returning the sine of the numerical argument,
++see L<perlfunc/sin>.  See also L<Math::Trig>.
++
++=item sinh
++
++This is identical to the C function C<sinh()>
++for returning the hyperbolic sine of the numerical argument.
++See also L<Math::Trig>.
++
++=item sleep
++
++This is functionally identical to Perl's builtin C<sleep()> function
++for suspending the execution of the current for process for certain
++number of seconds, see L<perlfunc/sleep>.  There is one significant
++difference, however: C<POSIX::sleep()> returns the number of
++B<unslept> seconds, while the C<CORE::sleep()> returns the
++number of slept seconds.
++
++=item sprintf
++
++This is similar to Perl's builtin C<sprintf()> function
++for returning a string that has the arguments formatted as requested,
++see L<perlfunc/sprintf>.
++
++=item sqrt
++
++This is identical to Perl's builtin C<sqrt()> function.
++for returning the square root of the numerical argument,
++see L<perlfunc/sqrt>.
++
++=item srand
++
++Give a seed the pseudorandom number generator, see L<perlfunc/srand>.
++
++=item sscanf
++
++sscanf() is C-specific, use regular expressions instead,
++see L<perlre>.
++
++=item stat
++
++This is identical to Perl's builtin C<stat()> function
++for returning information about files and directories.
++
++=item strcat
++
++strcat() is C-specific, use C<.=> instead, see L<perlop>.
++
++=item strchr
++
++strchr() is C-specific, see L<perlfunc/index> instead.
++
++=item strcmp
++
++strcmp() is C-specific, use C<eq> or C<cmp> instead, see L<perlop>.
++
++=item strcoll
++
++This is identical to the C function C<strcoll()>
++for collating (comparing) strings transformed using
++the C<strxfrm()> function.  Not really needed since
++Perl can do this transparently, see L<perllocale>.
++
++=item strcpy
++
++strcpy() is C-specific, use C<=> instead, see L<perlop>.
++
++=item strcspn
++
++strcspn() is C-specific, use regular expressions instead,
++see L<perlre>.
++
++=item strerror
++
++Returns the error string for the specified errno.
++Identical to the string form of the C<$!>, see L<perlvar/$ERRNO>.
++
++=item strftime
++
++Convert date and time information to string.  Returns the string.
++
++Synopsis:
++
++	strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
++
++The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero.
++I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1.  The
++year (C<year>) is given in years since 1900.  I.e., the year 1995 is 95; the
++year 2001 is 101.  Consult your system's C<strftime()> manpage for details
++about these and the other arguments.
++
++If you want your code to be portable, your format (C<fmt>) argument
++should use only the conversion specifiers defined by the ANSI C
++standard (C89, to play safe).  These are C<aAbBcdHIjmMpSUwWxXyYZ%>.
++But even then, the B<results> of some of the conversion specifiers are
++non-portable.  For example, the specifiers C<aAbBcpZ> change according
++to the locale settings of the user, and both how to set locales (the
++locale names) and what output to expect are non-standard.
++The specifier C<c> changes according to the timezone settings of the
++user and the timezone computation rules of the operating system.
++The C<Z> specifier is notoriously unportable since the names of
++timezones are non-standard. Sticking to the numeric specifiers is the
++safest route.
++
++The given arguments are made consistent as though by calling
++C<mktime()> before calling your system's C<strftime()> function,
++except that the C<isdst> value is not affected.
++
++The string for Tuesday, December 12, 1995.
++
++	$str = POSIX::strftime( "%A, %B %d, %Y", 0, 0, 0, 12, 11, 95, 2 );
++	print "$str\n";
++
++=item strlen
++
++strlen() is C-specific, use C<length()> instead, see L<perlfunc/length>.
++
++=item strncat
++
++strncat() is C-specific, use C<.=> instead, see L<perlop>.
++
++=item strncmp
++
++strncmp() is C-specific, use C<eq> instead, see L<perlop>.
++
++=item strncpy
++
++strncpy() is C-specific, use C<=> instead, see L<perlop>.
++
++=item strpbrk
++
++strpbrk() is C-specific, use regular expressions instead,
++see L<perlre>.
++
++=item strrchr
++
++strrchr() is C-specific, see L<perlfunc/rindex> instead.
++
++=item strspn
++
++strspn() is C-specific, use regular expressions instead,
++see L<perlre>.
++
++=item strstr
++
++This is identical to Perl's builtin C<index()> function,
++see L<perlfunc/index>.
++
++=item strtod
++
++String to double translation. Returns the parsed number and the number
++of characters in the unparsed portion of the string.  Truly
++POSIX-compliant systems set $! ($ERRNO) to indicate a translation
++error, so clear $! before calling strtod.  However, non-POSIX systems
++may not check for overflow, and therefore will never set $!.
++
++strtod should respect any POSIX I<setlocale()> settings.
++
++To parse a string $str as a floating point number use
++
++    $! = 0;
++    ($num, $n_unparsed) = POSIX::strtod($str);
++
++The second returned item and $! can be used to check for valid input:
++
++    if (($str eq '') || ($n_unparsed != 0) || $!) {
++        die "Non-numeric input $str" . ($! ? ": $!\n" : "\n");
++    }
++
++When called in a scalar context strtod returns the parsed number.
++
++=item strtok
++
++strtok() is C-specific, use regular expressions instead, see
++L<perlre>, or L<perlfunc/split>.
++
++=item strtol
++
++String to (long) integer translation.  Returns the parsed number and
++the number of characters in the unparsed portion of the string.  Truly
++POSIX-compliant systems set $! ($ERRNO) to indicate a translation
++error, so clear $! before calling strtol.  However, non-POSIX systems
++may not check for overflow, and therefore will never set $!.
++
++strtol should respect any POSIX I<setlocale()> settings.
++
++To parse a string $str as a number in some base $base use
++
++    $! = 0;
++    ($num, $n_unparsed) = POSIX::strtol($str, $base);
++
++The base should be zero or between 2 and 36, inclusive.  When the base
++is zero or omitted strtol will use the string itself to determine the
++base: a leading "0x" or "0X" means hexadecimal; a leading "0" means
++octal; any other leading characters mean decimal.  Thus, "1234" is
++parsed as a decimal number, "01234" as an octal number, and "0x1234"
++as a hexadecimal number.
++
++The second returned item and $! can be used to check for valid input:
++
++    if (($str eq '') || ($n_unparsed != 0) || !$!) {
++        die "Non-numeric input $str" . $! ? ": $!\n" : "\n";
++    }
++
++When called in a scalar context strtol returns the parsed number.
++
++=item strtoul
++
++String to unsigned (long) integer translation.  strtoul() is identical
++to strtol() except that strtoul() only parses unsigned integers.  See
++L</strtol> for details.
++
++Note: Some vendors supply strtod() and strtol() but not strtoul().
++Other vendors that do supply strtoul() parse "-1" as a valid value.
++
++=item strxfrm
++
++String transformation.  Returns the transformed string.
++
++	$dst = POSIX::strxfrm( $src );
++
++Used in conjunction with the C<strcoll()> function, see L</strcoll>.
++
++Not really needed since Perl can do this transparently, see
++L<perllocale>.
++
++=item sysconf
++
++Retrieves values of system configurable variables.
++
++The following will get the machine's clock speed.
++
++	$clock_ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK );
++
++Returns C<undef> on failure.
++
++=item system
++
++This is identical to Perl's builtin C<system()> function, see
++L<perlfunc/system>.
++
++=item tan
++
++This is identical to the C function C<tan()>, returning the
++tangent of the numerical argument.  See also L<Math::Trig>.
++
++=item tanh
++
++This is identical to the C function C<tanh()>, returning the
++hyperbolic tangent of the numerical argument.   See also L<Math::Trig>.
++
++=item tcdrain
++
++This is similar to the C function C<tcdrain()> for draining
++the output queue of its argument stream.
++
++Returns C<undef> on failure.
++
++=item tcflow
++
++This is similar to the C function C<tcflow()> for controlling
++the flow of its argument stream.
++
++Returns C<undef> on failure.
++
++=item tcflush
++
++This is similar to the C function C<tcflush()> for flushing
++the I/O buffers of its argument stream.
++
++Returns C<undef> on failure.
++
++=item tcgetpgrp
++
++This is identical to the C function C<tcgetpgrp()> for returning the
++process group identifier of the foreground process group of the controlling
++terminal.
++
++=item tcsendbreak
++
++This is similar to the C function C<tcsendbreak()> for sending
++a break on its argument stream.
++
++Returns C<undef> on failure.
++
++=item tcsetpgrp
++
++This is similar to the C function C<tcsetpgrp()> for setting the
++process group identifier of the foreground process group of the controlling
++terminal.
++
++Returns C<undef> on failure.
++
++=item time
++
++This is identical to Perl's builtin C<time()> function
++for returning the number of seconds since the epoch
++(whatever it is for the system), see L<perlfunc/time>.
++
++=item times
++
++The times() function returns elapsed realtime since some point in the past
++(such as system startup), user and system times for this process, and user
++and system times used by child processes.  All times are returned in clock
++ticks.
++
++    ($realtime, $user, $system, $cuser, $csystem) = POSIX::times();
++
++Note: Perl's builtin C<times()> function returns four values, measured in
++seconds.
++
++=item tmpfile
++
++Use method C<IO::File::new_tmpfile()> instead, or see L<File::Temp>.
++
++=item tmpnam
++
++Returns a name for a temporary file.
++
++	$tmpfile = POSIX::tmpnam();
++
++For security reasons, which are probably detailed in your system's
++documentation for the C library tmpnam() function, this interface
++should not be used; instead see L<File::Temp>.
++
++=item tolower
++
++This is identical to the C function, except that it can apply to a single
++character or to a whole string.  Consider using the C<lc()> function,
++see L<perlfunc/lc>, or the equivalent C<\L> operator inside doublequotish
++strings.
++
++=item toupper
++
++This is identical to the C function, except that it can apply to a single
++character or to a whole string.  Consider using the C<uc()> function,
++see L<perlfunc/uc>, or the equivalent C<\U> operator inside doublequotish
++strings.
++
++=item ttyname
++
++This is identical to the C function C<ttyname()> for returning the
++name of the current terminal.
++
++=item tzname
++
++Retrieves the time conversion information from the C<tzname> variable.
++
++	POSIX::tzset();
++	($std, $dst) = POSIX::tzname();
++
++=item tzset
++
++This is identical to the C function C<tzset()> for setting
++the current timezone based on the environment variable C<TZ>,
++to be used by C<ctime()>, C<localtime()>, C<mktime()>, and C<strftime()>
++functions.
++
++=item umask
++
++This is identical to Perl's builtin C<umask()> function
++for setting (and querying) the file creation permission mask,
++see L<perlfunc/umask>.
++
++=item uname
++
++Get name of current operating system.
++
++	($sysname, $nodename, $release, $version, $machine) = POSIX::uname();
++
++Note that the actual meanings of the various fields are not
++that well standardized, do not expect any great portability.
++The C<$sysname> might be the name of the operating system,
++the C<$nodename> might be the name of the host, the C<$release>
++might be the (major) release number of the operating system,
++the C<$version> might be the (minor) release number of the
++operating system, and the C<$machine> might be a hardware identifier.
++Maybe.
++
++=item ungetc
++
++Use method C<IO::Handle::ungetc()> instead.
++
++=item unlink
++
++This is identical to Perl's builtin C<unlink()> function
++for removing files, see L<perlfunc/unlink>.
++
++=item utime
++
++This is identical to Perl's builtin C<utime()> function
++for changing the time stamps of files and directories,
++see L<perlfunc/utime>.
++
++=item vfprintf
++
++vfprintf() is C-specific, see L<perlfunc/printf> instead.
++
++=item vprintf
++
++vprintf() is C-specific, see L<perlfunc/printf> instead.
++
++=item vsprintf
++
++vsprintf() is C-specific, see L<perlfunc/sprintf> instead.
++
++=item wait
++
++This is identical to Perl's builtin C<wait()> function,
++see L<perlfunc/wait>.
++
++=item waitpid
++
++Wait for a child process to change state.  This is identical to Perl's
++builtin C<waitpid()> function, see L<perlfunc/waitpid>.
++
++	$pid = POSIX::waitpid( -1, POSIX::WNOHANG );
++	print "status = ", ($? / 256), "\n";
++
++=item wcstombs
++
++This is identical to the C function C<wcstombs()>.
++Perl does not have any support for the wide and multibyte
++characters of the C standards, so this might be a rather
++useless function.
++
++=item wctomb
++
++This is identical to the C function C<wctomb()>.
++Perl does not have any support for the wide and multibyte
++characters of the C standards, so this might be a rather
++useless function.
++
++=item write
++
++Write to a file.  This uses file descriptors such as those obtained by
++calling C<POSIX::open>.
++
++	$fd = POSIX::open( "foo", &POSIX::O_WRONLY );
++	$buf = "hello";
++	$bytes = POSIX::write( $fd, $buf, 5 );
++
++Returns C<undef> on failure.
++
++See also L<perlfunc/syswrite>.
++
++=back
++
++=head1 CLASSES
++
++=head2 POSIX::SigAction
++
++=over 8
++
++=item new
++
++Creates a new C<POSIX::SigAction> object which corresponds to the C
++C<struct sigaction>.  This object will be destroyed automatically when
++it is no longer needed.  The first parameter is the handler, a sub
++reference.  The second parameter is a C<POSIX::SigSet> object, it
++defaults to the empty set.  The third parameter contains the
++C<sa_flags>, it defaults to 0.
++
++	$sigset = POSIX::SigSet->new(SIGINT, SIGQUIT);
++	$sigaction = POSIX::SigAction->new( \&handler, $sigset, &POSIX::SA_NOCLDSTOP );
++
++This C<POSIX::SigAction> object is intended for use with the C<POSIX::sigaction()>
++function.
++
++=back
++
++=over 8
++
++=item handler
++
++=item mask
++
++=item flags
++
++accessor functions to get/set the values of a SigAction object.
++
++	$sigset = $sigaction->mask;
++	$sigaction->flags(&POSIX::SA_RESTART);
++
++=item safe
++
++accessor function for the "safe signals" flag of a SigAction object; see
++L<perlipc> for general information on safe (a.k.a. "deferred") signals.  If
++you wish to handle a signal safely, use this accessor to set the "safe" flag
++in the C<POSIX::SigAction> object:
++
++	$sigaction->safe(1);
++
++You may also examine the "safe" flag on the output action object which is
++filled in when given as the third parameter to C<POSIX::sigaction()>:
++
++	sigaction(SIGINT, $new_action, $old_action);
++	if ($old_action->safe) {
++	    # previous SIGINT handler used safe signals
++	}
++
++=back
++
++=head2 POSIX::SigRt
++
++=over 8
++
++=item %SIGRT
++
++A hash of the POSIX realtime signal handlers.  It is an extension of
++the standard %SIG, the $POSIX::SIGRT{SIGRTMIN} is roughly equivalent
++to $SIG{SIGRTMIN}, but the right POSIX moves (see below) are made with
++the POSIX::SigSet and POSIX::sigaction instead of accessing the %SIG.
++
++You can set the %POSIX::SIGRT elements to set the POSIX realtime
++signal handlers, use C<delete> and C<exists> on the elements, and use
++C<scalar> on the C<%POSIX::SIGRT> to find out how many POSIX realtime
++signals there are available (SIGRTMAX - SIGRTMIN + 1, the SIGRTMAX is
++a valid POSIX realtime signal).
++
++Setting the %SIGRT elements is equivalent to calling this:
++
++  sub new {
++    my ($rtsig, $handler, $flags) = @_;
++    my $sigset = POSIX::SigSet($rtsig);
++    my $sigact = POSIX::SigAction->new($handler, $sigset, $flags);
++    sigaction($rtsig, $sigact);
++  }
++
++The flags default to zero, if you want something different you can
++either use C<local> on $POSIX::SigRt::SIGACTION_FLAGS, or you can
++derive from POSIX::SigRt and define your own C<new()> (the tied hash
++STORE method of the %SIGRT calls C<new($rtsig, $handler, $SIGACTION_FLAGS)>,
++where the $rtsig ranges from zero to SIGRTMAX - SIGRTMIN + 1).
++
++Just as with any signal, you can use sigaction($rtsig, undef, $oa) to
++retrieve the installed signal handler (or, rather, the signal action).
++
++B<NOTE:> whether POSIX realtime signals really work in your system, or
++whether Perl has been compiled so that it works with them, is outside
++of this discussion.
++
++=item SIGRTMIN
++
++Return the minimum POSIX realtime signal number available, or C<undef>
++if no POSIX realtime signals are available.
++
++=item SIGRTMAX
++
++Return the maximum POSIX realtime signal number available, or C<undef>
++if no POSIX realtime signals are available.
++
++=back
++
++=head2 POSIX::SigSet
++
++=over 8
++
++=item new
++
++Create a new SigSet object.  This object will be destroyed automatically
++when it is no longer needed.  Arguments may be supplied to initialize the
++set.
++
++Create an empty set.
++
++	$sigset = POSIX::SigSet->new;
++
++Create a set with SIGUSR1.
++
++	$sigset = POSIX::SigSet->new( &POSIX::SIGUSR1 );
++
++=item addset
++
++Add a signal to a SigSet object.
++
++	$sigset->addset( &POSIX::SIGUSR2 );
++
++Returns C<undef> on failure.
++
++=item delset
++
++Remove a signal from the SigSet object.
++
++	$sigset->delset( &POSIX::SIGUSR2 );
++
++Returns C<undef> on failure.
++
++=item emptyset
++
++Initialize the SigSet object to be empty.
++
++	$sigset->emptyset();
++
++Returns C<undef> on failure.
++
++=item fillset
++
++Initialize the SigSet object to include all signals.
++
++	$sigset->fillset();
++
++Returns C<undef> on failure.
++
++=item ismember
++
++Tests the SigSet object to see if it contains a specific signal.
++
++	if( $sigset->ismember( &POSIX::SIGUSR1 ) ){
++		print "contains SIGUSR1\n";
++	}
++
++=back
++
++=head2 POSIX::Termios
++
++=over 8
++
++=item new
++
++Create a new Termios object.  This object will be destroyed automatically
++when it is no longer needed.  A Termios object corresponds to the termios
++C struct.  new() mallocs a new one, getattr() fills it from a file descriptor,
++and setattr() sets a file descriptor's parameters to match Termios' contents.
++
++	$termios = POSIX::Termios->new;
++
++=item getattr
++
++Get terminal control attributes.
++
++Obtain the attributes for stdin.
++
++	$termios->getattr( 0 ) # Recommended for clarity.
++	$termios->getattr()
++
++Obtain the attributes for stdout.
++
++	$termios->getattr( 1 )
++
++Returns C<undef> on failure.
++
++=item getcc
++
++Retrieve a value from the c_cc field of a termios object.  The c_cc field is
++an array so an index must be specified.
++
++	$c_cc[1] = $termios->getcc(1);
++
++=item getcflag
++
++Retrieve the c_cflag field of a termios object.
++
++	$c_cflag = $termios->getcflag;
++
++=item getiflag
++
++Retrieve the c_iflag field of a termios object.
++
++	$c_iflag = $termios->getiflag;
++
++=item getispeed
++
++Retrieve the input baud rate.
++
++	$ispeed = $termios->getispeed;
++
++=item getlflag
++
++Retrieve the c_lflag field of a termios object.
++
++	$c_lflag = $termios->getlflag;
++
++=item getoflag
++
++Retrieve the c_oflag field of a termios object.
++
++	$c_oflag = $termios->getoflag;
++
++=item getospeed
++
++Retrieve the output baud rate.
++
++	$ospeed = $termios->getospeed;
++
++=item setattr
++
++Set terminal control attributes.
++
++Set attributes immediately for stdout.
++
++	$termios->setattr( 1, &POSIX::TCSANOW );
++
++Returns C<undef> on failure.
++
++=item setcc
++
++Set a value in the c_cc field of a termios object.  The c_cc field is an
++array so an index must be specified.
++
++	$termios->setcc( &POSIX::VEOF, 1 );
++
++=item setcflag
++
++Set the c_cflag field of a termios object.
++
++	$termios->setcflag( $c_cflag | &POSIX::CLOCAL );
++
++=item setiflag
++
++Set the c_iflag field of a termios object.
++
++	$termios->setiflag( $c_iflag | &POSIX::BRKINT );
++
++=item setispeed
++
++Set the input baud rate.
++
++	$termios->setispeed( &POSIX::B9600 );
++
++Returns C<undef> on failure.
++
++=item setlflag
++
++Set the c_lflag field of a termios object.
++
++	$termios->setlflag( $c_lflag | &POSIX::ECHO );
++
++=item setoflag
++
++Set the c_oflag field of a termios object.
++
++	$termios->setoflag( $c_oflag | &POSIX::OPOST );
++
++=item setospeed
++
++Set the output baud rate.
++
++	$termios->setospeed( &POSIX::B9600 );
++
++Returns C<undef> on failure.
++
++=item Baud rate values
++
++B38400 B75 B200 B134 B300 B1800 B150 B0 B19200 B1200 B9600 B600 B4800 B50 B2400 B110
++
++=item Terminal interface values
++
++TCSADRAIN TCSANOW TCOON TCIOFLUSH TCOFLUSH TCION TCIFLUSH TCSAFLUSH TCIOFF TCOOFF
++
++=item c_cc field values
++
++VEOF VEOL VERASE VINTR VKILL VQUIT VSUSP VSTART VSTOP VMIN VTIME NCCS
++
++=item c_cflag field values
++
++CLOCAL CREAD CSIZE CS5 CS6 CS7 CS8 CSTOPB HUPCL PARENB PARODD
++
++=item c_iflag field values
++
++BRKINT ICRNL IGNBRK IGNCR IGNPAR INLCR INPCK ISTRIP IXOFF IXON PARMRK
++
++=item c_lflag field values
++
++ECHO ECHOE ECHOK ECHONL ICANON IEXTEN ISIG NOFLSH TOSTOP
++
++=item c_oflag field values
++
++OPOST
++
++=back
++
++=head1 PATHNAME CONSTANTS
++
++=over 8
++
++=item Constants
++
++_PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX _PC_PIPE_BUF _PC_VDISABLE
++
++=back
++
++=head1 POSIX CONSTANTS
++
++=over 8
++
++=item Constants
++
++_POSIX_ARG_MAX _POSIX_CHILD_MAX _POSIX_CHOWN_RESTRICTED _POSIX_JOB_CONTROL _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_NO_TRUNC _POSIX_OPEN_MAX _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SAVED_IDS _POSIX_SSIZE_MAX _POSIX_STREAM_MAX _POSIX_TZNAME_MAX _POSIX_VDISABLE _POSIX_VERSION
++
++=back
++
++=head1 SYSTEM CONFIGURATION
++
++=over 8
++
++=item Constants
++
++_SC_ARG_MAX _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
++
++=back
++
++=head1 ERRNO
++
++=over 8
++
++=item Constants
++
++E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY EBADF
++EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ
++EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS EINTR
++EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE ENAMETOOLONG
++ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS ENODEV ENOENT ENOEXEC
++ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR
++ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE
++EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART EROFS
++ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS
++ETXTBSY EUSERS EWOULDBLOCK EXDEV
++
++=back
++
++=head1 FCNTL
++
++=over 8
++
++=item Constants
++
++FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_OK F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC O_WRONLY
++
++=back
++
++=head1 FLOAT
++
++=over 8
++
++=item Constants
++
++DBL_DIG DBL_EPSILON DBL_MANT_DIG DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP FLT_DIG FLT_EPSILON FLT_MANT_DIG FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP FLT_RADIX FLT_ROUNDS LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP
++
++=back
++
++=head1 LIMITS
++
++=over 8
++
++=item Constants
++
++ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX ULONG_MAX USHRT_MAX
++
++=back
++
++=head1 LOCALE
++
++=over 8
++
++=item Constants
++
++LC_ALL LC_COLLATE LC_CTYPE LC_MONETARY LC_NUMERIC LC_TIME
++
++=back
++
++=head1 MATH
++
++=over 8
++
++=item Constants
++
++HUGE_VAL
++
++=back
++
++=head1 SIGNAL
++
++=over 8
++
++=item Constants
++
++SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK SA_RESETHAND SA_RESTART
++SA_SIGINFO SIGABRT SIGALRM SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT
++SIGKILL SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN SIGTTOU
++SIGUSR1 SIGUSR2 SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK
++SIG_UNBLOCK
++
++=back
++
++=head1 STAT
++
++=over 8
++
++=item Constants
++
++S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
++
++=item Macros
++
++S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
++
++=back
++
++=head1 STDLIB
++
++=over 8
++
++=item Constants
++
++EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX RAND_MAX
++
++=back
++
++=head1 STDIO
++
++=over 8
++
++=item Constants
++
++BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid L_tmpname TMP_MAX
++
++=back
++
++=head1 TIME
++
++=over 8
++
++=item Constants
++
++CLK_TCK CLOCKS_PER_SEC
++
++=back
++
++=head1 UNISTD
++
++=over 8
++
++=item Constants
++
++R_OK SEEK_CUR SEEK_END SEEK_SET STDIN_FILENO STDOUT_FILENO STDERR_FILENO W_OK X_OK
++
++=back
++
++=head1 WAIT
++
++=over 8
++
++=item Constants
++
++WNOHANG WUNTRACED
++
++=over 16
++
++=item WNOHANG
++
++Do not suspend the calling process until a child process
++changes state but instead return immediately.
++
++=item WUNTRACED
++
++Catch stopped child processes.
++
++=back
++
++=item Macros
++
++WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG
++
++=over 16
++
++=item WIFEXITED
++
++WIFEXITED($?) returns true if the child process exited normally
++(C<exit()> or by falling off the end of C<main()>)
++
++=item WEXITSTATUS
++
++WEXITSTATUS($?) returns the normal exit status of the child process
++(only meaningful if WIFEXITED($?) is true)
++
++=item WIFSIGNALED
++
++WIFSIGNALED($?) returns true if the child process terminated because
++of a signal
++
++=item WTERMSIG
++
++WTERMSIG($?) returns the signal the child process terminated for
++(only meaningful if WIFSIGNALED($?) is true)
++
++=item WIFSTOPPED
++
++WIFSTOPPED($?) returns true if the child process is currently stopped
++(can happen only if you specified the WUNTRACED flag to waitpid())
++
++=item WSTOPSIG
++
++WSTOPSIG($?) returns the signal the child process was stopped for
++(only meaningful if WIFSTOPPED($?) is true)
++
++=back
++
++=back
++
diff --git a/meta/recipes-devtools/perl/perl-native_5.12.2.bb b/meta/recipes-devtools/perl/perl-native_5.12.2.bb
index 5996494c9..cd21e9e8b 100644
--- a/meta/recipes-devtools/perl/perl-native_5.12.2.bb
+++ b/meta/recipes-devtools/perl/perl-native_5.12.2.bb
@@ -4,7 +4,7 @@ SECTION = "libs"
 LICENSE = "Artistic|GPL"
 LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \
 		    file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8"
-PR = "r5"
+PR = "r6"
 
 LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \
                     file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8"
@@ -12,7 +12,9 @@ LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \
 SRC_URI = "http://ftp.funet.fi/pub/CPAN/src/perl-${PV}.tar.gz \
            file://Configure-multilib.patch;patch=1 \
            file://perl-configpm-switch.patch;patch=1 \
-           file://parallel_build_fix.patch \
+           file://parallel_build_fix_1.patch \
+           file://parallel_build_fix_2.patch \
+           file://parallel_build_fix_3.patch \
            file://native-nopacklist.patch;patch=1 \
            file://native-perlinc.patch;patch=1"
 
diff --git a/meta/recipes-devtools/perl/perl_5.12.2.bb b/meta/recipes-devtools/perl/perl_5.12.2.bb
index e659152d4..18fad18c0 100644
--- a/meta/recipes-devtools/perl/perl_5.12.2.bb
+++ b/meta/recipes-devtools/perl/perl_5.12.2.bb
@@ -8,7 +8,7 @@ PRIORITY = "optional"
 # We need gnugrep (for -I)
 DEPENDS = "virtual/db perl-native-${PV} grep-native"
 DEPENDS += "gdbm zlib"
-PR = "r1"
+PR = "r2"
 
 # 5.10.1 has Module::Build built-in
 PROVIDES += "libmodule-build-perl"
@@ -18,7 +18,9 @@ PROVIDES += "libmodule-build-perl"
 
 SRC_URI = "ftp://ftp.funet.fi/pub/CPAN/src/perl-${PV}.tar.gz \
         file://Makefile.patch;patch=1 \
-        file://parallel_build_fix.patch \
+        file://parallel_build_fix_1.patch \
+        file://parallel_build_fix_2.patch \
+        file://parallel_build_fix_3.patch \
         file://Makefile.SH.patch;patch=1 \
         file://installperl.patch;patch=1 \
         file://perl-dynloader.patch;patch=1 \