Guard the SysV IPC tests against being invoked in

SysV-IPC-less places.

p4raw-id: //depot/perl@10684

diff --git a/ext/IPC/SysV/t/msg.t b/ext/IPC/SysV/t/msg.t
index 2a982f0..f8c066b 100755 (executable)
--- a/ext/IPC/SysV/t/msg.t
+++ b/ext/IPC/SysV/t/msg.t
@@ -1,3 +1,15 @@
+BEGIN {
+    eval { require Config; import Config };
+    if ($@) {
+       print "1..0 # Skip: no Config\n";
+       exit(0);
+    }
+    if ($Config{extensions} !~ m!\bIPC/SysV\b!) {
+       print "1..0 # Skip: no SysV IPC\n";
+       exit(0);
+    }
+}
+
 use IPC::SysV qw(IPC_PRIVATE IPC_RMID IPC_NOWAIT IPC_STAT S_IRWXU S_IRWXG S_IRWXO);
 
 use IPC::Msg;

diff --git a/ext/IPC/SysV/t/sem.t b/ext/IPC/SysV/t/sem.t
index 9d6fff6..9fa5704 100755 (executable)
--- a/ext/IPC/SysV/t/sem.t
+++ b/ext/IPC/SysV/t/sem.t
@@ -1,3 +1,14 @@
+BEGIN {
+    eval { require Config; import Config };
+    if ($@) {
+       print "1..0 # Skip: no Config\n";
+       exit(0);
+    }
+    if ($Config{extensions} !~ m!\bIPC/SysV\b!) {
+       print "1..0 # Skip: no SysV IPC\n";
+       exit(0);
+    }
+}
 
 use IPC::SysV qw(
        SETALL