This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update IPC-SysV from 2.07 to 2.08
authorNicolas R <atoomic@cpan.org>
Tue, 7 Jul 2020 20:24:45 +0000 (14:24 -0600)
committerNicolas R <nicolas@atoomic.org>
Fri, 17 Jul 2020 21:32:22 +0000 (15:32 -0600)
13 files changed:
Porting/Maintainers.pl
cpan/IPC-SysV/Makefile.PL
cpan/IPC-SysV/SysV.xs
cpan/IPC-SysV/lib/IPC/Msg.pm
cpan/IPC-SysV/lib/IPC/Semaphore.pm
cpan/IPC-SysV/lib/IPC/SharedMem.pm
cpan/IPC-SysV/lib/IPC/SysV.pm
cpan/IPC-SysV/t/ipcsysv.t
cpan/IPC-SysV/t/msg.t
cpan/IPC-SysV/t/pod.t
cpan/IPC-SysV/t/podcov.t
cpan/IPC-SysV/t/sem.t
cpan/IPC-SysV/t/shm.t

index b5ffbaf..a44c108 100755 (executable)
@@ -660,7 +660,7 @@ use File::Glob qw(:case);
     },
 
     'IPC::SysV' => {
-        'DISTRIBUTION' => 'MHX/IPC-SysV-2.07.tar.gz',
+        'DISTRIBUTION' => 'MHX/IPC-SysV-2.08.tar.gz',
         'FILES'        => q[cpan/IPC-SysV],
         'EXCLUDED'     => [
             qw( const-c.inc
index 0b30c4e..713a93a 100644 (file)
@@ -47,7 +47,8 @@ sub configure
 
   if ($ENV{'PERL_CORE'}) {
     # clean out const-* files in the core
-    push @moreopts, realclean => { FILES => "const-c.inc const-xs.inc" };
+    push @moreopts, realclean => { FILES => "const-c.inc const-xs.inc" },
+                    DEFINE => '-DNO_PPPORT_H';
   }
   else {
     # IPC::SysV is in the core since 5.005
index 490d410..6a0329c 100644 (file)
 #include "perl.h"
 #include "XSUB.h"
 
-#define NEED_sv_2pv_flags
-#define NEED_sv_pvn_force_flags
-#include "ppport.h"
+#ifndef NO_PPPORT_H
+#  define NEED_sv_2pv_flags
+#  define NEED_sv_pvn_force_flags
+#  include "ppport.h"
+#endif
 
 #include <sys/types.h>
 
@@ -346,8 +348,8 @@ void
 memread(addr, sv, pos, size)
     SV *addr
     SV *sv
-    int pos
-    int size
+    UV pos
+    UV size
   CODE:
     char *caddr = (char *) sv2addr(addr);
     char *dst;
@@ -371,8 +373,8 @@ void
 memwrite(addr, sv, pos, size)
     SV *addr
     SV *sv
-    int pos
-    int size
+    UV pos
+    UV size
   CODE:
     char *caddr = (char *) sv2addr(addr);
     STRLEN len;
index db2411d..051539d 100644 (file)
@@ -15,7 +15,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = '2.07';
+$VERSION = '2.08';
 
 # Figure out if we have support for native sized types
 my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
index 2cc5bc5..9284e7a 100644 (file)
@@ -16,7 +16,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = '2.07';
+$VERSION = '2.08';
 
 # Figure out if we have support for native sized types
 my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
index 993b5e6..5ebec7b 100644 (file)
@@ -15,7 +15,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = '2.07';
+$VERSION = '2.08';
 
 # Figure out if we have support for native sized types
 my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
index 4f917b4..0d53172 100644 (file)
@@ -18,7 +18,7 @@ use Config;
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = '2.07';
+$VERSION = '2.08';
 
 # To support new constants, just add them to @EXPORT_OK
 # and the C/XS code will be generated automagically.
@@ -81,14 +81,10 @@ sub AUTOLOAD
 
 BOOT_XS: {
   # If I inherit DynaLoader then I inherit AutoLoader and I DON'T WANT TO
-  require DynaLoader;
+  use XSLoader ();
 
-  # DynaLoader calls dl_load_flags as a static method.
-  *dl_load_flags = DynaLoader->can('dl_load_flags');
+  XSLoader::load( 'IPC::SysV', $VERSION );
 
-  do {
-    __PACKAGE__->can('bootstrap') || \&DynaLoader::bootstrap
-  }->(__PACKAGE__, $VERSION);
 }
 
 1;
index 68d2a05..277490b 100644 (file)
@@ -8,6 +8,10 @@
 #
 ################################################################################
 
+use strict;
+use warnings;
+
+our %Config;
 BEGIN {
   require Test::More; import Test::More;
   require Config; import Config;
@@ -30,7 +34,6 @@ plan(tests => 39);
 # Later the sem* tests will import more for themselves.
 
 use IPC::SysV qw(IPC_PRIVATE IPC_NOWAIT IPC_STAT IPC_RMID S_IRWXU);
-use strict;
 
 {
   my $did_diag = 0;
index 0d289ba..b31beb1 100644 (file)
@@ -8,6 +8,10 @@
 #
 ################################################################################
 
+use strict;
+use warnings;
+
+our %Config;
 BEGIN {
   if ($ENV{'PERL_CORE'}) {
     chdir 't' if -d 't';
@@ -29,7 +33,6 @@ if ($Config{'d_sem'} ne 'define') {
 }
 
 use IPC::SysV qw(IPC_PRIVATE IPC_RMID IPC_NOWAIT IPC_STAT S_IRWXU S_IRWXG S_IRWXO);
-use strict;
 
 use IPC::Msg;
 #Creating a message queue
index 6853526..3cc06d8 100644 (file)
@@ -8,6 +8,10 @@
 #
 ################################################################################
 
+use strict;
+use warnings;
+
+our %Config;
 BEGIN {
   if ($ENV{'PERL_CORE'}) {
     chdir 't' if -d 't';
@@ -22,8 +26,6 @@ BEGIN {
   }
 }
 
-use strict;
-
 my @pods;
 
 # find all potential pod files
index b677764..7aa2da9 100644 (file)
@@ -8,6 +8,10 @@
 #
 ################################################################################
 
+use strict;
+use warnings;
+
+our %Config;
 BEGIN {
   if ($ENV{'PERL_CORE'}) {
     chdir 't' if -d 't';
@@ -22,8 +26,6 @@ BEGIN {
   }
 }
 
-use strict;
-
 my @modules = qw( IPC::SysV IPC::Msg IPC::Semaphore IPC::SharedMem );
 
 eval 'use Pod::Coverage 0.10';
index e0de552..2c0da6b 100644 (file)
@@ -8,6 +8,10 @@
 #
 ################################################################################
 
+use strict;
+use warnings;
+
+our %Config;
 BEGIN {
   if ($ENV{'PERL_CORE'}) {
     chdir 't' if -d 't';
index 447514e..454c186 100644 (file)
@@ -8,6 +8,10 @@
 #
 ################################################################################
 
+use strict;
+use warnings;
+
+our %Config;
 BEGIN {
   if ($ENV{'PERL_CORE'}) {
     chdir 't' if -d 't';