From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 18 Jun 2001 12:25:55 +0000 (+0000)
Subject: Guard the SysV IPC tests against being invoked in
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72802890534be7b33c8ac870fc565ebbe0a9f388;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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