This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #127533] only test semctl() if we have everything needed to use it
[perl5.git] / t / io / semctl.t
index 53ae296..2e970a7 100644 (file)
@@ -10,6 +10,8 @@ use strict;
 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;
 {