[perl #127533] only test semctl() if we have everything needed to use it

[perl5.git] / t / io / semctl.t

diff --git a/t/io/semctl.t b/t/io/semctl.t
index 53ae296..2e970a7 100644 (file)
--- a/t/io/semctl.t
+++ b/t/io/semctl.t
@@ -10,6 +10,8 @@ use strict;
 use warnings;
 
 skip_all('no SysV semaphores on this platform') if !$Config{d_sem};
 use warnings;
 
 skip_all('no SysV semaphores on this platform') if !$Config{d_sem};

+skip_all('SysV semaphore structures not detected')
+    if !$Config{d_semctl_semid_ds} && !$Config{d_semctl_semun};

 
 my @warnings;
 {
 
 my @warnings;
 {