IPC-SysV: Synch with CPAN release 2.09

From Changes:

* Fix GitHub #8: Comparison between signed and unsigned integer
* Merge PR #9: Fix compile warnings with -Wsign-compare
* Merge PR #11: Avoid indirect call syntax

Committer: Additional email address for contributor to keep porting
tests happy

Author: mhx

Porting/Maintainers.pl

@@ -668,7 +668,7 @@ package Maintainers;
     },
 
     'IPC::SysV' => {
-        'DISTRIBUTION' => 'MHX/IPC-SysV-2.08.tar.gz',
+        'DISTRIBUTION' => 'MHX/IPC-SysV-2.09.tar.gz',
         'FILES'        => q[cpan/IPC-SysV],
         'EXCLUDED'     => [
             qw( const-c.inc

Porting/checkAUTHORS.pl

@@ -726,6 +726,7 @@ sub _raw_address {
 +                                       perl5\100tux.freedom.nl
 mhx                                     mhx-perl\100gmx.net
 +                                       mhx\100r2d2.(none)
++                                       mhx\100cpan.org
 mst                                     mst\100shadowcat.co.uk
 +                                       matthewt\100hercule.scsys.co.uk
 nicholas                                nick\100ccl4.org

cpan/IPC-SysV/SysV.xs

@@ -379,7 +379,7 @@ memwrite(addr, sv, pos, size)
     char *caddr = (char *) sv2addr(addr);
     STRLEN len;
     const char *src = SvPV_const(sv, len);
-    int n = ((int) len > size) ? size : (int) len;
+    unsigned int n = ((unsigned int) len > size) ? size : (unsigned int) len;
     Copy(src, caddr + pos, n, char);
     if (n < size)
     {

cpan/IPC-SysV/lib/IPC/Msg.pm

@@ -15,7 +15,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = '2.08';
+$VERSION = '2.09';
 
 # Figure out if we have support for native sized types
 my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
@@ -42,7 +42,7 @@ my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
 }
 
 sub new {
-    @_ == 3 || croak 'new IPC::Msg ( KEY , FLAGS )';
+    @_ == 3 || croak 'IPC::Msg->new( KEY , FLAGS )';
     my $class = shift;
 
     my $id = msgget($_[0],$_[1]);

cpan/IPC-SysV/lib/IPC/Semaphore.pm

@@ -16,7 +16,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = '2.08';
+$VERSION = '2.09';
 
 # Figure out if we have support for native sized types
 my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
@@ -39,7 +39,7 @@ my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
 }
 
 sub new {
-    @_ == 4 || croak 'new ' . __PACKAGE__ . '( KEY, NSEMS, FLAGS )';
+    @_ == 4 || croak __PACKAGE__ . '->new( KEY, NSEMS, FLAGS )';
     my $class = shift;
 
     my $id = semget($_[0],$_[1],$_[2]);

cpan/IPC-SysV/lib/IPC/SharedMem.pm

@@ -15,7 +15,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = '2.08';
+$VERSION = '2.09';
 
 # Figure out if we have support for native sized types
 my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };

cpan/IPC-SysV/lib/IPC/SysV.pm

@@ -18,7 +18,7 @@ use Config;
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = '2.08';
+$VERSION = '2.09';
 
 # To support new constants, just add them to @EXPORT_OK
 # and the C/XS code will be generated automagically.

cpan/IPC-SysV/t/ipcsysv.t

@@ -13,8 +13,8 @@ use warnings;
 
 our %Config;
 BEGIN {
-  require Test::More; import Test::More;
-  require Config; import Config;
+  require Test::More; Test::More->import;
+  require Config; Config->import;
 
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
     plan(skip_all => 'IPC::SysV was not built');

cpan/IPC-SysV/t/msg.t

@@ -18,8 +18,8 @@ BEGIN {
     @INC = '../lib' if -d '../lib' && -d '../ext';
   }
 
-  require Test::More; import Test::More;
-  require Config; import Config;
+  require Test::More; Test::More->import;
+  require Config; Config->import;
 
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
     plan(skip_all => 'IPC::SysV was not built');
@@ -44,7 +44,7 @@ my $msq = sub {
     return $code->();
   }
   return $code->();
-}->(sub { new IPC::Msg(IPC_PRIVATE, S_IRWXU | S_IRWXG | S_IRWXO) });
+}->(sub { IPC::Msg->new(IPC_PRIVATE, S_IRWXU | S_IRWXG | S_IRWXO) });
 
 unless (defined $msq) {
   my $info = "IPC::Msg->new failed: $!";

cpan/IPC-SysV/t/pod.t

@@ -18,8 +18,8 @@ BEGIN {
     @INC = '../lib' if -d '../lib' && -d '../ext';
   }
 
-  require Test::More; import Test::More;
-  require Config; import Config;
+  require Test::More; Test::More->import;
+  require Config; Config->import;
 
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
     plan(skip_all => 'IPC::SysV was not built');
@@ -51,12 +51,12 @@ eval {
   require Test::Pod;
   $Test::Pod::VERSION >= 0.95
       or die "Test::Pod version only $Test::Pod::VERSION";
-  import Test::Pod tests => scalar @pods;
+  Test::Pod->import( tests => scalar @pods );
 };
 
 if ($@) {
   require Test::More;
-  import Test::More skip_all => "testing pod requires Test::Pod";
+  Test::More->import( skip_all => "testing pod requires Test::Pod" );
 }
 else {
   for my $pod (@pods) {

cpan/IPC-SysV/t/podcov.t

@@ -18,8 +18,8 @@ BEGIN {
     @INC = '../lib' if -d '../lib' && -d '../ext';
   }
 
-  require Test::More; import Test::More;
-  require Config; import Config;
+  require Test::More; Test::More->import;
+  require Config; Config->import;
 
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
     plan(skip_all => 'IPC::SysV was not built');

cpan/IPC-SysV/t/sem.t

@@ -18,8 +18,8 @@ BEGIN {
     @INC = '../lib' if -d '../lib' && -d '../ext';
   }
 
-  require Test::More; import Test::More;
-  require Config; import Config;
+  require Test::More; Test::More->import;
+  require Config; Config->import;
 
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
     plan(skip_all => 'IPC::SysV was not built');

cpan/IPC-SysV/t/shm.t

@@ -18,8 +18,8 @@ BEGIN {
     @INC = '../lib' if -d '../lib' && -d '../ext';
   }
 
-  require Test::More; import Test::More;
-  require Config; import Config;
+  require Test::More; Test::More->import;
+  require Config; Config->import;
 
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
     plan(skip_all => 'IPC::SysV was not built');