Change 34936 by [EMAIL PROTECTED] on 2008/11/26 22:34:54
Upgrade to IPC::SysV 2.00_01
Affected files ...
... //depot/perl/ext/IPC/SysV/Changes#3 edit
... //depot/perl/ext/IPC/SysV/Makefile.PL#11 edit
... //depot/perl/ext/IPC/SysV/SysV.xs#25 edit
... //depot/perl/ext/IPC/SysV/lib/IPC/Msg.pm#3 edit
... //depot/perl/ext/IPC/SysV/lib/IPC/Semaphore.pm#3 edit
... //depot/perl/ext/IPC/SysV/lib/IPC/SharedMem.pm#3 edit
... //depot/perl/ext/IPC/SysV/lib/IPC/SysV.pm#3 edit
Differences ...
==== //depot/perl/ext/IPC/SysV/Changes#3 (text) ====
Index: perl/ext/IPC/SysV/Changes
--- perl/ext/IPC/SysV/Changes#2~32780~ 2007-12-29 18:48:25.000000000 -0800
+++ perl/ext/IPC/SysV/Changes 2008-11-26 14:34:54.000000000 -0800
@@ -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
==== //depot/perl/ext/IPC/SysV/Makefile.PL#11 (text) ====
Index: perl/ext/IPC/SysV/Makefile.PL
--- perl/ext/IPC/SysV/Makefile.PL#10~32926~ 2008-01-09 11:37:06.000000000
-0800
+++ perl/ext/IPC/SysV/Makefile.PL 2008-11-26 14:34:54.000000000 -0800
@@ -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 @@
}
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(
==== //depot/perl/ext/IPC/SysV/SysV.xs#25 (text) ====
Index: perl/ext/IPC/SysV/SysV.xs
--- perl/ext/IPC/SysV/SysV.xs#24~33084~ 2008-01-28 02:07:48.000000000 -0800
+++ perl/ext/IPC/SysV/SysV.xs 2008-11-26 14:34:54.000000000 -0800
@@ -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 $
*
********************************************************************************
*
==== //depot/perl/ext/IPC/SysV/lib/IPC/Msg.pm#3 (text) ====
Index: perl/ext/IPC/SysV/lib/IPC/Msg.pm
--- perl/ext/IPC/SysV/lib/IPC/Msg.pm#2~32780~ 2007-12-29 18:48:25.000000000
-0800
+++ perl/ext/IPC/SysV/lib/IPC/Msg.pm 2008-11-26 14:34:54.000000000 -0800
@@ -21,7 +21,7 @@
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
==== //depot/perl/ext/IPC/SysV/lib/IPC/Semaphore.pm#3 (text) ====
Index: perl/ext/IPC/SysV/lib/IPC/Semaphore.pm
--- perl/ext/IPC/SysV/lib/IPC/Semaphore.pm#2~32780~ 2007-12-29
18:48:25.000000000 -0800
+++ perl/ext/IPC/SysV/lib/IPC/Semaphore.pm 2008-11-26 14:34:54.000000000
-0800
@@ -22,7 +22,7 @@
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
==== //depot/perl/ext/IPC/SysV/lib/IPC/SharedMem.pm#3 (text) ====
Index: perl/ext/IPC/SysV/lib/IPC/SharedMem.pm
--- perl/ext/IPC/SysV/lib/IPC/SharedMem.pm#2~32780~ 2007-12-29
18:48:25.000000000 -0800
+++ perl/ext/IPC/SysV/lib/IPC/SharedMem.pm 2008-11-26 14:34:54.000000000
-0800
@@ -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 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 @@
@_ == 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
}
==== //depot/perl/ext/IPC/SysV/lib/IPC/SysV.pm#3 (text) ====
Index: perl/ext/IPC/SysV/lib/IPC/SysV.pm
--- perl/ext/IPC/SysV/lib/IPC/SysV.pm#2~32780~ 2007-12-29 18:48:25.000000000
-0800
+++ perl/ext/IPC/SysV/lib/IPC/SysV.pm 2008-11-26 14:34:54.000000000 -0800
@@ -24,7 +24,7 @@
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;
End of Patch.
