skip_all is a sub in t/test.pl.

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.

diff --git a/t/io/shm.t b/t/io/shm.t
index 520f427..0ba566b 100644 (file)
--- a/t/io/shm.t
+++ b/t/io/shm.t
@@ -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');
   }
 }