diff options
| -rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
| -rw-r--r-- | cpan/IPC-SysV/Makefile.PL | 3 | ||||
| -rw-r--r-- | cpan/IPC-SysV/SysV.xs | 16 | ||||
| -rw-r--r-- | cpan/IPC-SysV/lib/IPC/Msg.pm | 2 | ||||
| -rw-r--r-- | cpan/IPC-SysV/lib/IPC/Semaphore.pm | 2 | ||||
| -rw-r--r-- | cpan/IPC-SysV/lib/IPC/SharedMem.pm | 2 | ||||
| -rw-r--r-- | cpan/IPC-SysV/lib/IPC/SysV.pm | 10 | ||||
| -rw-r--r-- | cpan/IPC-SysV/t/ipcsysv.t | 5 | ||||
| -rw-r--r-- | cpan/IPC-SysV/t/msg.t | 5 | ||||
| -rw-r--r-- | cpan/IPC-SysV/t/pod.t | 6 | ||||
| -rw-r--r-- | cpan/IPC-SysV/t/podcov.t | 6 | ||||
| -rw-r--r-- | cpan/IPC-SysV/t/sem.t | 4 | ||||
| -rw-r--r-- | cpan/IPC-SysV/t/shm.t | 4 |
13 files changed, 42 insertions, 25 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index b5ffbafe4c..a44c108b24 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -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 diff --git a/cpan/IPC-SysV/Makefile.PL b/cpan/IPC-SysV/Makefile.PL index 0b30c4ec2e..713a93affc 100644 --- a/cpan/IPC-SysV/Makefile.PL +++ b/cpan/IPC-SysV/Makefile.PL @@ -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 diff --git a/cpan/IPC-SysV/SysV.xs b/cpan/IPC-SysV/SysV.xs index 490d410309..6a0329cfe8 100644 --- a/cpan/IPC-SysV/SysV.xs +++ b/cpan/IPC-SysV/SysV.xs @@ -12,9 +12,11 @@ #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; diff --git a/cpan/IPC-SysV/lib/IPC/Msg.pm b/cpan/IPC-SysV/lib/IPC/Msg.pm index db2411d4bf..051539da1c 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.07'; +$VERSION = '2.08'; # 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/Semaphore.pm b/cpan/IPC-SysV/lib/IPC/Semaphore.pm index 2cc5bc5a72..9284e7acaf 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.07'; +$VERSION = '2.08'; # 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/SharedMem.pm b/cpan/IPC-SysV/lib/IPC/SharedMem.pm index 993b5e6bd5..5ebec7bb29 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.07'; +$VERSION = '2.08'; # 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 4f917b40aa..0d531723eb 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.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; diff --git a/cpan/IPC-SysV/t/ipcsysv.t b/cpan/IPC-SysV/t/ipcsysv.t index 68d2a05e5d..277490b4e3 100644 --- a/cpan/IPC-SysV/t/ipcsysv.t +++ b/cpan/IPC-SysV/t/ipcsysv.t @@ -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; diff --git a/cpan/IPC-SysV/t/msg.t b/cpan/IPC-SysV/t/msg.t index 0d289ba0cf..b31beb1a30 100644 --- a/cpan/IPC-SysV/t/msg.t +++ b/cpan/IPC-SysV/t/msg.t @@ -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 diff --git a/cpan/IPC-SysV/t/pod.t b/cpan/IPC-SysV/t/pod.t index 6853526b9a..3cc06d86c5 100644 --- a/cpan/IPC-SysV/t/pod.t +++ b/cpan/IPC-SysV/t/pod.t @@ -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 diff --git a/cpan/IPC-SysV/t/podcov.t b/cpan/IPC-SysV/t/podcov.t index b67776462f..7aa2da9178 100644 --- a/cpan/IPC-SysV/t/podcov.t +++ b/cpan/IPC-SysV/t/podcov.t @@ -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'; diff --git a/cpan/IPC-SysV/t/sem.t b/cpan/IPC-SysV/t/sem.t index e0de552356..2c0da6ba33 100644 --- a/cpan/IPC-SysV/t/sem.t +++ b/cpan/IPC-SysV/t/sem.t @@ -8,6 +8,10 @@ # ################################################################################ +use strict; +use warnings; + +our %Config; BEGIN { if ($ENV{'PERL_CORE'}) { chdir 't' if -d 't'; diff --git a/cpan/IPC-SysV/t/shm.t b/cpan/IPC-SysV/t/shm.t index 447514e5b8..454c18625f 100644 --- a/cpan/IPC-SysV/t/shm.t +++ b/cpan/IPC-SysV/t/shm.t @@ -8,6 +8,10 @@ # ################################################################################ +use strict; +use warnings; + +our %Config; BEGIN { if ($ENV{'PERL_CORE'}) { chdir 't' if -d 't'; |