From: Marcus Holland-Moritz Date: Sun, 30 Dec 2007 02:48:25 +0000 (+0000) Subject: Upgrade to IPC::SysV 2.00 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a7c93bfc3dfadc59dadf5215a34100cfb5369ade;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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;