Upgrade to IPC::SysV 2.00_02

p4raw-id: //depot/perl@34953

9 files changed, 27 insertions, 19 deletions

diff --git a/ext/IPC/SysV/Changes b/ext/IPC/SysV/Changes
index 8eb157010d..22264ffd95 100644
--- a/ext/IPC/SysV/Changes
+++ b/ext/IPC/SysV/Changes
@@ -1,3 +1,7 @@
+2.00_02 - 2008-11-28
+
+    * check for ENOMEM and EACCES and skip tests as neccessary
+
 2.00_01 - 2008-11-26
 
     * remove const-* when building in the core
diff --git a/ext/IPC/SysV/lib/IPC/Msg.pm b/ext/IPC/SysV/lib/IPC/Msg.pm
index 7a67612c47..7ffbc0b85f 100644
--- a/ext/IPC/SysV/lib/IPC/Msg.pm
+++ b/ext/IPC/SysV/lib/IPC/Msg.pm
@@ -21,7 +21,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 $VERSION = eval $VERSION;
 
 # Figure out if we have support for native sized types
diff --git a/ext/IPC/SysV/lib/IPC/Semaphore.pm b/ext/IPC/SysV/lib/IPC/Semaphore.pm
index a133103465..f3690a30b3 100644
--- a/ext/IPC/SysV/lib/IPC/Semaphore.pm
+++ b/ext/IPC/SysV/lib/IPC/Semaphore.pm
@@ -22,7 +22,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 $VERSION = eval $VERSION;
 
 # Figure out if we have support for native sized types
diff --git a/ext/IPC/SysV/lib/IPC/SharedMem.pm b/ext/IPC/SysV/lib/IPC/SharedMem.pm
index 9bb188b404..65d3137e2e 100644
--- a/ext/IPC/SysV/lib/IPC/SharedMem.pm
+++ b/ext/IPC/SysV/lib/IPC/SharedMem.pm
@@ -21,7 +21,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 $VERSION = eval $VERSION;
 
 # Figure out if we have support for native sized types
diff --git a/ext/IPC/SysV/lib/IPC/SysV.pm b/ext/IPC/SysV/lib/IPC/SysV.pm
index fa14e5f4f2..b6098282c7 100644
--- a/ext/IPC/SysV/lib/IPC/SysV.pm
+++ b/ext/IPC/SysV/lib/IPC/SysV.pm
@@ -1,8 +1,8 @@
 ################################################################################
 #
-#  $Revision: 23 $
+#  $Revision: 24 $
 #  $Author: mhx $
-#  $Date: 2007/10/19 20:46:32 +0200 $
+#  $Date: 2008/11/28 18:08:10 +0100 $
 #
 ################################################################################
 #
@@ -24,7 +24,7 @@ use Config;
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -58,7 +58,7 @@ $VERSION = eval $VERSION;
   S_IRGRP S_IWGRP S_IXGRP S_IRWXG
   S_IROTH S_IWOTH S_IXOTH S_IRWXO
 
-  ENOSPC ENOSYS
+  ENOSPC ENOSYS ENOMEM EACCES
 
 ), qw(
 
diff --git a/ext/IPC/SysV/t/ipcsysv.t b/ext/IPC/SysV/t/ipcsysv.t
index 629e707d3c..a83c7bbae0 100755
--- a/ext/IPC/SysV/t/ipcsysv.t
+++ b/ext/IPC/SysV/t/ipcsysv.t
@@ -1,8 +1,8 @@
 ################################################################################
 #
-#  $Revision: 12 $
+#  $Revision: 13 $
 #  $Author: mhx $
-#  $Date: 2007/10/22 13:10:22 +0200 $
+#  $Date: 2008/11/28 18:08:11 +0100 $
 #
 ################################################################################
 #
@@ -97,7 +97,8 @@ EOM
       return "$what failed: SIGSYS caught";
     }
     my $info = "$what failed: $why";
-    if ($why == &IPC::SysV::ENOSPC || $why == &IPC::SysV::ENOSYS) {
+    if ($why == &IPC::SysV::ENOSPC || $why == &IPC::SysV::ENOSYS ||
+        $why == &IPC::SysV::ENOMEM || $why == &IPC::SysV::EACCES) {
       do_sys_diag() if $why == &IPC::SysV::ENOSYS;
       return $info;
     }
diff --git a/ext/IPC/SysV/t/msg.t b/ext/IPC/SysV/t/msg.t
index aca6a7dc5f..32dd9ffa75 100755
--- a/ext/IPC/SysV/t/msg.t
+++ b/ext/IPC/SysV/t/msg.t
@@ -1,8 +1,8 @@
 ################################################################################
 #
-#  $Revision: 10 $
+#  $Revision: 11 $
 #  $Author: mhx $
-#  $Date: 2007/10/22 13:10:24 +0200 $
+#  $Date: 2008/11/28 18:08:11 +0100 $
 #
 ################################################################################
 #
@@ -51,7 +51,8 @@ my $msq = sub {
 
 unless (defined $msq) {
   my $info = "IPC::Msg->new failed: $!";
-  if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS) {
+  if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
+      $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
     plan(skip_all => $info);
   }
   else {
diff --git a/ext/IPC/SysV/t/sem.t b/ext/IPC/SysV/t/sem.t
index d51118c654..60fd039843 100755
--- a/ext/IPC/SysV/t/sem.t
+++ b/ext/IPC/SysV/t/sem.t
@@ -1,8 +1,8 @@
 ################################################################################
 #
-#  $Revision: 14 $
+#  $Revision: 15 $
 #  $Author: mhx $
-#  $Date: 2007/10/22 13:10:24 +0200 $
+#  $Date: 2008/11/28 18:08:11 +0100 $
 #
 ################################################################################
 #
@@ -61,7 +61,8 @@ my $sem = sub {
 
 unless (defined $sem) {
   my $info = "IPC::Semaphore->new failed: $!";
-  if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS) {
+  if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
+      $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
     plan(skip_all => $info);
   }
   else {
diff --git a/ext/IPC/SysV/t/shm.t b/ext/IPC/SysV/t/shm.t
index 976b79225d..f38f88eaa0 100644
--- a/ext/IPC/SysV/t/shm.t
+++ b/ext/IPC/SysV/t/shm.t
@@ -1,8 +1,8 @@
 ################################################################################
 #
-#  $Revision: 4 $
+#  $Revision: 5 $
 #  $Author: mhx $
-#  $Date: 2007/10/22 13:10:24 +0200 $
+#  $Date: 2008/11/28 18:08:11 +0100 $
 #
 ################################################################################
 #
@@ -46,7 +46,8 @@ my $shm = sub {
 
 unless (defined $shm) {
   my $info = "IPC::SharedMem->new failed: $!";
-  if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS) {
+  if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
+      $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
     plan(skip_all => $info);
   }
   else {