This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
shm.t: Skip under miniperl
[perl5.git] / t / io / shm.t
index bcd3da5..bd5fe8a 100644 (file)
@@ -26,6 +26,9 @@ 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');
+  }
   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');
   }