diff options
author | Tony Cook <tony@develop-help.com> | 2016-03-09 10:43:57 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2016-03-09 10:43:57 +1100 |
commit | cda0c02ca04cbb6960392d44273bd40182397820 (patch) | |
tree | 8b8ce3d22578f88d3c4cd2b82b956fe7968ac797 /cpan/IPC-SysV | |
parent | 9234e5bdb7cb62dbf09ea4fd4ae5f3831cf78890 (diff) | |
download | perl-cda0c02ca04cbb6960392d44273bd40182397820.tar.gz |
fix a skip count in cpan/IPC-SysV/t/ipcsysv.t
reported upstream as https://rt.cpan.org/Ticket/Display.html?id=112827
Diffstat (limited to 'cpan/IPC-SysV')
-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 | 2 | ||||
-rw-r--r-- | cpan/IPC-SysV/t/ipcsysv.t | 4 |
5 files changed, 6 insertions, 6 deletions
diff --git a/cpan/IPC-SysV/lib/IPC/Msg.pm b/cpan/IPC-SysV/lib/IPC/Msg.pm index d3bfd5d388..3c561e2cd8 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.06'; +$VERSION = '2.06_01'; # 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 492cc66683..41f3ece003 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.06'; +$VERSION = '2.06_01'; # 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 407369bf59..335ade93d8 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.06'; +$VERSION = '2.06_01'; # 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 da576ed065..e99f10f387 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.06'; +$VERSION = '2.06_01'; # 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 c7a92ed903..68d2a05e5d 100644 --- a/cpan/IPC-SysV/t/ipcsysv.t +++ b/cpan/IPC-SysV/t/ipcsysv.t @@ -266,7 +266,7 @@ SKIP: { } SKIP: { - skip('lacking d_shm', 10) unless + skip('lacking d_shm', 11) unless $Config{'d_shm'} eq 'define'; use IPC::SysV qw(shmat shmdt memread memwrite ftok); @@ -275,7 +275,7 @@ SKIP: { # Very first time called after machine is booted value may be 0 unless (defined $shm && $shm >= 0) { - skip(skip_or_die('shmget', $!), 10); + skip(skip_or_die('shmget', $!), 11); } pass("shm acquire"); |