More reasons for skipping the IPC::SysV message test.

p4raw-id: //depot/maint-5.6/perl-5.6.2@21690

1 files changed, 13 insertions, 3 deletions

diff --git a/ext/IPC/SysV/t/msg.t b/ext/IPC/SysV/t/msg.t
index f8c066b384..a626dae9a6 100755
--- a/ext/IPC/SysV/t/msg.t
+++ b/ext/IPC/SysV/t/msg.t
@@ -4,9 +4,19 @@ BEGIN {
 	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);
+
+    my $reason;
+
+    if ($Config{'extensions'} !~ /\bIPC\/SysV\b/) {
+      $reason = 'IPC::SysV was not built';
+    } elsif ($Config{'d_sem'} ne 'define') {
+      $reason = '$Config{d_sem} undefined';
+    } elsif ($Config{'d_msg'} ne 'define') {
+      $reason = '$Config{d_msg} undefined';
+    }
+    if ($reason) {
+	print "1..0 # Skip: $reason\n";
+	exit 0;
     }
 }