Change 34953 by [EMAIL PROTECTED] on 2008/11/29 05:43:24
Upgrade to IPC::SysV 2.00_02
Affected files ...
... //depot/perl/ext/IPC/SysV/Changes#4 edit
... //depot/perl/ext/IPC/SysV/lib/IPC/Msg.pm#4 edit
... //depot/perl/ext/IPC/SysV/lib/IPC/Semaphore.pm#4 edit
... //depot/perl/ext/IPC/SysV/lib/IPC/SharedMem.pm#4 edit
... //depot/perl/ext/IPC/SysV/lib/IPC/SysV.pm#4 edit
... //depot/perl/ext/IPC/SysV/t/ipcsysv.t#5 edit
... //depot/perl/ext/IPC/SysV/t/msg.t#7 edit
... //depot/perl/ext/IPC/SysV/t/sem.t#8 edit
... //depot/perl/ext/IPC/SysV/t/shm.t#2 edit
Differences ...
==== //depot/perl/ext/IPC/SysV/Changes#4 (text) ====
Index: perl/ext/IPC/SysV/Changes
--- perl/ext/IPC/SysV/Changes#3~34936~ 2008-11-26 14:34:54.000000000 -0800
+++ perl/ext/IPC/SysV/Changes 2008-11-28 21:43:24.000000000 -0800
@@ -1,3 +1,7 @@
+2.00_02 - 2008-11-28
+
+ * check for ENOMEM and EACCES and skip tests as neccessary
+
2.00_01 - 2008-11-26
* remove const-* when building in the core
==== //depot/perl/ext/IPC/SysV/lib/IPC/Msg.pm#4 (text) ====
Index: perl/ext/IPC/SysV/lib/IPC/Msg.pm
--- perl/ext/IPC/SysV/lib/IPC/Msg.pm#3~34936~ 2008-11-26 14:34:54.000000000
-0800
+++ perl/ext/IPC/SysV/lib/IPC/Msg.pm 2008-11-28 21:43:24.000000000 -0800
@@ -21,7 +21,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_02 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
$VERSION = eval $VERSION;
# Figure out if we have support for native sized types
==== //depot/perl/ext/IPC/SysV/lib/IPC/Semaphore.pm#4 (text) ====
Index: perl/ext/IPC/SysV/lib/IPC/Semaphore.pm
--- perl/ext/IPC/SysV/lib/IPC/Semaphore.pm#3~34936~ 2008-11-26
14:34:54.000000000 -0800
+++ perl/ext/IPC/SysV/lib/IPC/Semaphore.pm 2008-11-28 21:43:24.000000000
-0800
@@ -22,7 +22,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_02 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
$VERSION = eval $VERSION;
# Figure out if we have support for native sized types
==== //depot/perl/ext/IPC/SysV/lib/IPC/SharedMem.pm#4 (text) ====
Index: perl/ext/IPC/SysV/lib/IPC/SharedMem.pm
--- perl/ext/IPC/SysV/lib/IPC/SharedMem.pm#3~34936~ 2008-11-26
14:34:54.000000000 -0800
+++ perl/ext/IPC/SysV/lib/IPC/SharedMem.pm 2008-11-28 21:43:24.000000000
-0800
@@ -21,7 +21,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_02 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
$VERSION = eval $VERSION;
# Figure out if we have support for native sized types
==== //depot/perl/ext/IPC/SysV/lib/IPC/SysV.pm#4 (text) ====
Index: perl/ext/IPC/SysV/lib/IPC/SysV.pm
--- perl/ext/IPC/SysV/lib/IPC/SysV.pm#3~34936~ 2008-11-26 14:34:54.000000000
-0800
+++ perl/ext/IPC/SysV/lib/IPC/SysV.pm 2008-11-28 21:43:24.000000000 -0800
@@ -1,8 +1,8 @@
################################################################################
#
-# $Revision: 23 $
+# $Revision: 24 $
# $Author: mhx $
-# $Date: 2007/10/19 20:46:32 +0200 $
+# $Date: 2008/11/28 18:08:10 +0100 $
#
################################################################################
#
@@ -24,7 +24,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_01 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.00_02 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
@@ -58,7 +58,7 @@
S_IRGRP S_IWGRP S_IXGRP S_IRWXG
S_IROTH S_IWOTH S_IXOTH S_IRWXO
- ENOSPC ENOSYS
+ ENOSPC ENOSYS ENOMEM EACCES
), qw(
==== //depot/perl/ext/IPC/SysV/t/ipcsysv.t#5 (xtext) ====
Index: perl/ext/IPC/SysV/t/ipcsysv.t
--- perl/ext/IPC/SysV/t/ipcsysv.t#4~32709~ 2007-12-22 11:35:52.000000000
-0800
+++ perl/ext/IPC/SysV/t/ipcsysv.t 2008-11-28 21:43:24.000000000 -0800
@@ -1,8 +1,8 @@
################################################################################
#
-# $Revision: 12 $
+# $Revision: 13 $
# $Author: mhx $
-# $Date: 2007/10/22 13:10:22 +0200 $
+# $Date: 2008/11/28 18:08:11 +0100 $
#
################################################################################
#
@@ -97,7 +97,8 @@
return "$what failed: SIGSYS caught";
}
my $info = "$what failed: $why";
- if ($why == &IPC::SysV::ENOSPC || $why == &IPC::SysV::ENOSYS) {
+ if ($why == &IPC::SysV::ENOSPC || $why == &IPC::SysV::ENOSYS ||
+ $why == &IPC::SysV::ENOMEM || $why == &IPC::SysV::EACCES) {
do_sys_diag() if $why == &IPC::SysV::ENOSYS;
return $info;
}
==== //depot/perl/ext/IPC/SysV/t/msg.t#7 (xtext) ====
Index: perl/ext/IPC/SysV/t/msg.t
--- perl/ext/IPC/SysV/t/msg.t#6~32709~ 2007-12-22 11:35:52.000000000 -0800
+++ perl/ext/IPC/SysV/t/msg.t 2008-11-28 21:43:24.000000000 -0800
@@ -1,8 +1,8 @@
################################################################################
#
-# $Revision: 10 $
+# $Revision: 11 $
# $Author: mhx $
-# $Date: 2007/10/22 13:10:24 +0200 $
+# $Date: 2008/11/28 18:08:11 +0100 $
#
################################################################################
#
@@ -51,7 +51,8 @@
unless (defined $msq) {
my $info = "IPC::Msg->new failed: $!";
- if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS) {
+ if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
+ $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
plan(skip_all => $info);
}
else {
==== //depot/perl/ext/IPC/SysV/t/sem.t#8 (xtext) ====
Index: perl/ext/IPC/SysV/t/sem.t
--- perl/ext/IPC/SysV/t/sem.t#7~32709~ 2007-12-22 11:35:52.000000000 -0800
+++ perl/ext/IPC/SysV/t/sem.t 2008-11-28 21:43:24.000000000 -0800
@@ -1,8 +1,8 @@
################################################################################
#
-# $Revision: 14 $
+# $Revision: 15 $
# $Author: mhx $
-# $Date: 2007/10/22 13:10:24 +0200 $
+# $Date: 2008/11/28 18:08:11 +0100 $
#
################################################################################
#
@@ -61,7 +61,8 @@
unless (defined $sem) {
my $info = "IPC::Semaphore->new failed: $!";
- if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS) {
+ if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
+ $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
plan(skip_all => $info);
}
else {
==== //depot/perl/ext/IPC/SysV/t/shm.t#2 (text) ====
Index: perl/ext/IPC/SysV/t/shm.t
--- perl/ext/IPC/SysV/t/shm.t#1~32709~ 2007-12-22 11:35:52.000000000 -0800
+++ perl/ext/IPC/SysV/t/shm.t 2008-11-28 21:43:24.000000000 -0800
@@ -1,8 +1,8 @@
################################################################################
#
-# $Revision: 4 $
+# $Revision: 5 $
# $Author: mhx $
-# $Date: 2007/10/22 13:10:24 +0200 $
+# $Date: 2008/11/28 18:08:11 +0100 $
#
################################################################################
#
@@ -46,7 +46,8 @@
unless (defined $shm) {
my $info = "IPC::SharedMem->new failed: $!";
- if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS) {
+ if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
+ $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
plan(skip_all => $info);
}
else {
End of Patch.
