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

11 files changed, 22 insertions, 22 deletions

diff --git a/cpan/IPC-SysV/SysV.xs b/cpan/IPC-SysV/SysV.xs
index 6a0329cfe8..6690718aa8 100644
--- a/cpan/IPC-SysV/SysV.xs
+++ b/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)
     {
diff --git a/cpan/IPC-SysV/lib/IPC/Msg.pm b/cpan/IPC-SysV/lib/IPC/Msg.pm
index 051539da1c..281b220201 100644
--- a/cpan/IPC-SysV/lib/IPC/Msg.pm
+++ b/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]);
diff --git a/cpan/IPC-SysV/lib/IPC/Semaphore.pm b/cpan/IPC-SysV/lib/IPC/Semaphore.pm
index 9284e7acaf..a8f61b26c8 100644
--- a/cpan/IPC-SysV/lib/IPC/Semaphore.pm
+++ b/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]);
diff --git a/cpan/IPC-SysV/lib/IPC/SharedMem.pm b/cpan/IPC-SysV/lib/IPC/SharedMem.pm
index 5ebec7bb29..e1fbc850b3 100644
--- a/cpan/IPC-SysV/lib/IPC/SharedMem.pm
+++ b/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 }; $@ ? '' : '!' };
diff --git a/cpan/IPC-SysV/lib/IPC/SysV.pm b/cpan/IPC-SysV/lib/IPC/SysV.pm
index 0d531723eb..ebafceb938 100644
--- a/cpan/IPC-SysV/lib/IPC/SysV.pm
+++ b/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.
diff --git a/cpan/IPC-SysV/t/ipcsysv.t b/cpan/IPC-SysV/t/ipcsysv.t
index 277490b4e3..8bbea07fd0 100644
--- a/cpan/IPC-SysV/t/ipcsysv.t
+++ b/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');
diff --git a/cpan/IPC-SysV/t/msg.t b/cpan/IPC-SysV/t/msg.t
index b31beb1a30..c216202e06 100644
--- a/cpan/IPC-SysV/t/msg.t
+++ b/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: $!";
diff --git a/cpan/IPC-SysV/t/pod.t b/cpan/IPC-SysV/t/pod.t
index 3cc06d86c5..d3fee6b305 100644
--- a/cpan/IPC-SysV/t/pod.t
+++ b/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) {
diff --git a/cpan/IPC-SysV/t/podcov.t b/cpan/IPC-SysV/t/podcov.t
index 7aa2da9178..7067482ec8 100644
--- a/cpan/IPC-SysV/t/podcov.t
+++ b/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');
diff --git a/cpan/IPC-SysV/t/sem.t b/cpan/IPC-SysV/t/sem.t
index 2c0da6ba33..1f1d06a97b 100644
--- a/cpan/IPC-SysV/t/sem.t
+++ b/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');
diff --git a/cpan/IPC-SysV/t/shm.t b/cpan/IPC-SysV/t/shm.t
index 454c18625f..5f4282ce4f 100644
--- a/cpan/IPC-SysV/t/shm.t
+++ b/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');