This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use test.pl miniperl check rather than by-hand in t/io/shm.t
authorGeorge Greer <perl@greerga.m-l.org>
Thu, 15 Sep 2011 03:46:44 +0000 (23:46 -0400)
committerGeorge Greer <perl@greerga.m-l.org>
Thu, 15 Sep 2011 03:46:44 +0000 (23:46 -0400)
Doing the miniperl check by hand didn't exit() so the test script would die
as soon as it got down to the "use IPC::SysV" line.

t/io/shm.t

index e34be50..520f427 100644 (file)
@@ -26,9 +26,7 @@ BEGIN {
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
     plan(skip_all => 'IPC::SysV was not built');
   }
   if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
     plan(skip_all => 'IPC::SysV was not built');
   }
-  unless(defined &DynaLoader::boot_DynaLoader) { # miniperl
-    plan(skip_all => 'miniperl');
-  }
+  skip_all_if_miniperl();
   if ($Config{'d_shm'} ne 'define') {
     plan(skip_all => '$Config{d_shm} undefined');
   }
   if ($Config{'d_shm'} ne 'define') {
     plan(skip_all => '$Config{d_shm} undefined');
   }