This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to IPC-SysV 2.06.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 28 Feb 2016 22:35:33 +0000 (17:35 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 28 Feb 2016 22:35:33 +0000 (17:35 -0500)
Fixing an oopsie of yours truly from 2.05.

cpan/IPC-SysV/SysV.xs
cpan/IPC-SysV/lib/IPC/Msg.pm
cpan/IPC-SysV/lib/IPC/Semaphore.pm
cpan/IPC-SysV/lib/IPC/SharedMem.pm
cpan/IPC-SysV/lib/IPC/SysV.pm

index 121a164..490d410 100644 (file)
@@ -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);
index c2539a4..d3bfd5d 100644 (file)
@@ -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 }; $@ ? '' : '!' };
index 7ff6fbc..492cc66 100644 (file)
@@ -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 }; $@ ? '' : '!' };
index eadb3fc..407369b 100644 (file)
@@ -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 }; $@ ? '' : '!' };
index 883c755..da576ed 100644 (file)
@@ -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.