In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/55228cce99883efbbfce9c210a93533989d86ac1?hp=ec9e47ebf20db99adb00e868eff8a50a70b15b71>
- Log ----------------------------------------------------------------- commit 55228cce99883efbbfce9c210a93533989d86ac1 Author: Tony Cook <[email protected]> Date: Wed Oct 29 14:50:54 2014 +1100 semctl() on cygwin throws SIGSYS if the cygserver isn't running ----------------------------------------------------------------------- Summary of changes: t/io/semctl.t | 1 + 1 file changed, 1 insertion(+) diff --git a/t/io/semctl.t b/t/io/semctl.t index 5394ac1..d52c18b 100644 --- a/t/io/semctl.t +++ b/t/io/semctl.t @@ -14,6 +14,7 @@ skip_all('no SysV semaphores on this platform') if !$Config{d_sem}; my @warnings; { local $SIG{__WARN__} = sub { push @warnings, $_[0] }; + local $SIG{SYS} = sub { skip_all("SIGSYS caught") } if exists $SIG{SYS}; my $test = (semctl(-1,0,0,0))[0]; ok(!defined $test, "erroneous semctl list slice yields undef"); } -- Perl5 Master Repository
