Guard the SysV IPC tests against being invoked in

SysV-IPC-less places.

p4raw-id: //depot/perl@10684

2 files changed, 23 insertions, 0 deletions

diff --git a/ext/IPC/SysV/t/msg.t b/ext/IPC/SysV/t/msg.t
index 2a982f054a..f8c066b384 100755
--- 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 9d6fff64f2..9fa5704c6f 100755
--- 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