This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip_all is a sub in t/test.pl.
authorCraig A. Berry <craigberry@mac.com>
Fri, 16 Sep 2011 20:07:42 +0000 (15:07 -0500)
committerCraig A. Berry <craigberry@mac.com>
Fri, 16 Sep 2011 20:07:42 +0000 (15:07 -0500)
plan(skip_all => 'foo') is a Test::More-ism that survived the
switch to t/test.pl in 8d646433865d105d3ca0f95dd6593fe343e37aa2
unchanged and caused the test to fail where d_shm is not defined
or IPC::SysV is not built.

t/io/shm.t

index 520f427..0ba566b 100644 (file)
@@ -24,11 +24,11 @@ BEGIN {
   require Config; import Config;
 
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
-    plan(skip_all => 'IPC::SysV was not built');
+    skip_all('-- IPC::SysV was not built');
   }
   skip_all_if_miniperl();
   if ($Config{'d_shm'} ne 'define') {
-    plan(skip_all => '$Config{d_shm} undefined');
+    skip_all('-- $Config{d_shm} undefined');
   }
 }