[perl.git] branch blead, updated. v5.19.8-495-g875437c

[Tony Cook]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/875437c8999a2d55eee9c7ea3e2c8d9400b82eb2?hp=6cc44f6270d743bed3e552da82c044f377e1c777>

- Log -----------------------------------------------------------------
commit 875437c8999a2d55eee9c7ea3e2c8d9400b82eb2
Author: Tony Cook <t...@develop-help.com>
Date:   Tue Feb 18 11:37:45 2014 +1100

    test.pl uses skip_all(...), not plan(skip_all => ...)
    
    This was causing noise on cygwin systems that don't have cygserver
    running.
-----------------------------------------------------------------------

Summary of changes:
 t/io/shm.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/io/shm.t b/t/io/shm.t
index 4a8941e..01e2172 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;

--
Perl5 Master Repository