diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-02-28 17:35:33 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2016-02-28 17:35:33 -0500 |
| commit | 40616ee38f6f95439179a1eef5522da572c98886 (patch) | |
| tree | d2e25fa2117e9f37dc11c3f2583a9a1f258c422a /cpan/IPC-SysV | |
| parent | 4e922c26899aa0a4b05aa93d3e7c2c8c60ba4743 (diff) | |
| download | perl-40616ee38f6f95439179a1eef5522da572c98886.tar.gz | |
Upgrade to IPC-SysV 2.06.
Fixing an oopsie of yours truly from 2.05.
Diffstat (limited to 'cpan/IPC-SysV')
| -rw-r--r-- | cpan/IPC-SysV/SysV.xs | 1 | ||||
| -rw-r--r-- | cpan/IPC-SysV/lib/IPC/Msg.pm | 2 | ||||
| -rw-r--r-- | cpan/IPC-SysV/lib/IPC/Semaphore.pm | 2 | ||||
| -rw-r--r-- | cpan/IPC-SysV/lib/IPC/SharedMem.pm | 2 | ||||
| -rw-r--r-- | cpan/IPC-SysV/lib/IPC/SysV.pm | 2 |
5 files changed, 5 insertions, 4 deletions
diff --git a/cpan/IPC-SysV/SysV.xs b/cpan/IPC-SysV/SysV.xs index 121a1643b4..490d410309 100644 --- a/cpan/IPC-SysV/SysV.xs +++ b/cpan/IPC-SysV/SysV.xs @@ -398,6 +398,7 @@ shmat(id, addr, flag) ST(0) = shm == (void *) -1 ? &PL_sv_undef : sv_2mortal(newSVpvn((char *) &shm, sizeof(void *))); } else { + SETERRNO(EINVAL,LIB_INVARG); ST(0) = &PL_sv_undef; } XSRETURN(1); diff --git a/cpan/IPC-SysV/lib/IPC/Msg.pm b/cpan/IPC-SysV/lib/IPC/Msg.pm index c2539a4f1e..d3bfd5d388 100644 --- a/cpan/IPC-SysV/lib/IPC/Msg.pm +++ b/cpan/IPC-SysV/lib/IPC/Msg.pm @@ -15,7 +15,7 @@ use strict; use vars qw($VERSION); use Carp; -$VERSION = '2.05'; +$VERSION = '2.06'; # Figure out if we have support for native sized types my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' }; diff --git a/cpan/IPC-SysV/lib/IPC/Semaphore.pm b/cpan/IPC-SysV/lib/IPC/Semaphore.pm index 7ff6fbca56..492cc66683 100644 --- a/cpan/IPC-SysV/lib/IPC/Semaphore.pm +++ b/cpan/IPC-SysV/lib/IPC/Semaphore.pm @@ -16,7 +16,7 @@ use strict; use vars qw($VERSION); use Carp; -$VERSION = '2.05'; +$VERSION = '2.06'; # Figure out if we have support for native sized types my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' }; diff --git a/cpan/IPC-SysV/lib/IPC/SharedMem.pm b/cpan/IPC-SysV/lib/IPC/SharedMem.pm index eadb3fc5f9..407369bf59 100644 --- a/cpan/IPC-SysV/lib/IPC/SharedMem.pm +++ b/cpan/IPC-SysV/lib/IPC/SharedMem.pm @@ -15,7 +15,7 @@ use strict; use vars qw($VERSION); use Carp; -$VERSION = '2.05'; +$VERSION = '2.06'; # Figure out if we have support for native sized types my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' }; diff --git a/cpan/IPC-SysV/lib/IPC/SysV.pm b/cpan/IPC-SysV/lib/IPC/SysV.pm index 883c755f46..da576ed065 100644 --- a/cpan/IPC-SysV/lib/IPC/SysV.pm +++ b/cpan/IPC-SysV/lib/IPC/SysV.pm @@ -18,7 +18,7 @@ use Config; require Exporter; @ISA = qw(Exporter); -$VERSION = '2.05'; +$VERSION = '2.06'; # To support new constants, just add them to @EXPORT_OK # and the C/XS code will be generated automagically. |