diff options
author | Tony Cook <tony@develop-help.com> | 2014-02-18 11:37:45 +1100 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2014-07-11 21:20:41 -0400 |
commit | f9e9f05ffc69de2f5048d07456fbe8d46121d5df (patch) | |
tree | 386c579516eee983e6fe7e8fd3dec34dd2184042 | |
parent | c3277d6aafdfde88df3e30a8a4dba20bf3ad1437 (diff) | |
download | perl-f9e9f05ffc69de2f5048d07456fbe8d46121d5df.tar.gz |
test.pl uses skip_all(...), not plan(skip_all => ...)
This was causing noise on cygwin systems that don't have cygserver
running.
(cherry picked from commit 875437c8999a2d55eee9c7ea3e2c8d9400b82eb2)
-rw-r--r-- | t/io/shm.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/io/shm.t b/t/io/shm.t index 4a8941ec75..01e2172570 100644 --- a/t/io/shm.t +++ b/t/io/shm.t @@ -40,7 +40,7 @@ my $key; END { shmctl $key, IPC_RMID, 0 if defined $key } { - local $SIG{SYS} = sub { plan(skip_all => "SIGSYS caught") } if exists $SIG{SYS}; + local $SIG{SYS} = sub { skip_all("SIGSYS caught") } if exists $SIG{SYS}; $key = shmget IPC_PRIVATE, 8, S_IRWXU; } @@ -48,7 +48,7 @@ if (not defined $key) { my $info = "IPC::SharedMem->new failed: $!"; if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS || $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) { - plan(skip_all => $info); + skip_all($info); } else { die $info; |