Upgrade to IPC::SysV 2.00

p4raw-id: //depot/perl@32780

diff --git a/ext/IPC/SysV/Changes b/ext/IPC/SysV/Changes
index 29a7511..968fd22 100644 (file)
--- a/ext/IPC/SysV/Changes
+++ b/ext/IPC/SysV/Changes
@@ -1,3 +1,8 @@
+2.00 - 2007-12-30
+
+    * fixed compilation issues with C++ compiler
+    * ignore .swp files in when scanning lib directory
+
 1.99_07 - 2007-10-22
 
     * terminate Makefile.PL on MSWin32 with a message that the

diff --git a/ext/IPC/SysV/Makefile.PL b/ext/IPC/SysV/Makefile.PL
index 8b13266..56a91d9 100644 (file)
--- a/ext/IPC/SysV/Makefile.PL
+++ b/ext/IPC/SysV/Makefile.PL
@@ -1,8 +1,8 @@
 ################################################################################
 #
-#  $Revision: 14 $
+#  $Revision: 15 $
 #  $Author: mhx $
-#  $Date: 2007/10/22 13:14:21 +0200 $
+#  $Date: 2007/12/22 17:39:55 +0100 $
 #
 ################################################################################
 #
@@ -76,7 +76,7 @@ sub configure
 sub MY::libscan
 {
  my($self, $path) = @_;
- return '' if $path =~ m! /(RCS|CVS|SCCS)/ | [~%]$ | \.(orig|rej)$ !x;
+ return '' if $path =~ m! /(RCS|CVS|SCCS)/ | [~%]$ | \.(swp|orig|rej)$ !x;
  $path;
 }
 

diff --git a/ext/IPC/SysV/SysV.xs b/ext/IPC/SysV/SysV.xs
index 17571a7..ffa0b0e 100644 (file)
--- a/ext/IPC/SysV/SysV.xs
+++ b/ext/IPC/SysV/SysV.xs
@@ -1,8 +1,8 @@
 /*******************************************************************************
 *
-*  $Revision: 30 $
+*  $Revision: 31 $
 *  $Author: mhx $
-*  $Date: 2007/10/18 19:57:29 +0200 $
+*  $Date: 2007/12/29 19:46:18 +0100 $
 *
 ********************************************************************************
 *
@@ -347,7 +347,7 @@ memread(addr, sv, pos, size)
     int pos
     int size
   CODE:
-    char *caddr = sv2addr(addr);
+    char *caddr = (char *) sv2addr(addr);
     char *dst;
     if (!SvOK(sv))
     {
@@ -372,7 +372,7 @@ memwrite(addr, sv, pos, size)
     int pos
     int size
   CODE:
-    char *caddr = sv2addr(addr);
+    char *caddr = (char *) sv2addr(addr);
     STRLEN len;
     const char *src = SvPV_const(sv, len);
     int n = ((int) len > size) ? size : (int) len;

diff --git a/ext/IPC/SysV/lib/IPC/Msg.pm b/ext/IPC/SysV/lib/IPC/Msg.pm
index cef85e8..2128af9 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/1.99_07 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00 $' =~ /(\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 3b81f1a..29a3cbe 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/1.99_07 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00 $' =~ /(\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 d4c8a5a..0f58f1a 100644 (file)
--- 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/1.99_07 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00 $' =~ /(\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 67eacaa..4005e28 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/1.99_07 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;