Upgrade to IPC::SysV 2.00_01

p4raw-id: //depot/perl@34936

diff --git a/ext/IPC/SysV/Changes b/ext/IPC/SysV/Changes
index 968fd22..8eb1570 100644 (file)
--- a/ext/IPC/SysV/Changes
+++ b/ext/IPC/SysV/Changes
@@ -1,3 +1,13 @@
+2.00_01 - 2008-11-26
+
+    * remove const-* when building in the core
+    * inherit libscan behaviour from EU::MM
+    * integrate #33084 from blead
+    * try to make Win32 report NA instead of FAIL
+    * fix bug in IPC::SharedMem constructor returning undef when
+      shared memory id == 0 (thanks to Antonio Jose Coutinho for
+      spotting this)
+
 2.00 - 2007-12-30
 
     * fixed compilation issues with C++ compiler

diff --git a/ext/IPC/SysV/Makefile.PL b/ext/IPC/SysV/Makefile.PL
index e3dfd07..1cd276c 100644 (file)
--- a/ext/IPC/SysV/Makefile.PL
+++ b/ext/IPC/SysV/Makefile.PL
@@ -1,8 +1,8 @@
 ################################################################################
 #
-#  $Revision: 16 $
+#  $Revision: 18 $
 #  $Author: mhx $
-#  $Date: 2008/01/05 16:41:20 +0100 $
+#  $Date: 2008/11/26 23:12:58 +0100 $
 #
 ################################################################################
 #
@@ -24,9 +24,7 @@ unless ($ENV{'PERL_CORE'}) {
 }
 
 if ($^O eq 'MSWin32') {
-  my $msg = "The IPC::SysV module cannot be built on the $^O platform.";
-  my $str = '*' x length $msg;
-  die "\n$str\n$msg\n$str\n\n";
+  die "OS unsupported\n";
 }
 
 WriteMakefile(

diff --git a/ext/IPC/SysV/SysV.xs b/ext/IPC/SysV/SysV.xs
index 9222f7a..11b4013 100644 (file)
--- a/ext/IPC/SysV/SysV.xs
+++ b/ext/IPC/SysV/SysV.xs
@@ -1,8 +1,8 @@
 /*******************************************************************************
 *
-*  $Revision: 31 $
+*  $Revision: 32 $
 *  $Author: mhx $
-*  $Date: 2007/12/29 19:46:18 +0100 $
+*  $Date: 2008/11/26 23:08:42 +0100 $
 *
 ********************************************************************************
 *

diff --git a/ext/IPC/SysV/lib/IPC/Msg.pm b/ext/IPC/SysV/lib/IPC/Msg.pm
index 2128af9..7a67612 100644 (file)
--- 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 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~ /(\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 29a3cbe..a133103 100644 (file)
--- 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 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~ /(\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 0f58f1a..9bb188b 100644 (file)
--- a/ext/IPC/SysV/lib/IPC/SharedMem.pm
+++ b/ext/IPC/SysV/lib/IPC/SharedMem.pm
@@ -1,8 +1,8 @@
 ################################################################################
 #
-#  $Revision: 2 $
+#  $Revision: 3 $
 #  $Author: mhx $
-#  $Date: 2007/10/14 05:16:08 +0200 $
+#  $Date: 2008/11/26 23:12:27 +0100 $
 #
 ################################################################################
 #
@@ -21,7 +21,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 $VERSION = eval $VERSION;
 
 # Figure out if we have support for native sized types
@@ -53,7 +53,9 @@ sub new
   @_ == 4 or croak 'IPC::SharedMem->new(KEY, SIZE, FLAGS)';
   my($class, $key, $size, $flags) = @_;
 
-  my $id = shmget $key, $size, $flags or return undef;
+  my $id = shmget $key, $size, $flags;
+
+  return undef unless defined $id;
 
   bless { _id => $id, _addr => undef, _isrm => 0 }, $class
 }

diff --git a/ext/IPC/SysV/lib/IPC/SysV.pm b/ext/IPC/SysV/lib/IPC/SysV.pm
index 4005e28..fa14e5f 100644 (file)
--- a/ext/IPC/SysV/lib/IPC/SysV.pm
+++ b/ext/IPC/SysV/lib/IPC/SysV.pm
@@ -24,7 +24,7 @@ use Config;
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;