From 877c86f70c562bc8c090bb55c3d7bb7ee1cc0b90 Mon Sep 17 00:00:00 2001 From: George Greer Date: Wed, 14 Sep 2011 23:46:44 -0400 Subject: [PATCH 1/1] Use test.pl miniperl check rather than by-hand in t/io/shm.t 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 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/t/io/shm.t b/t/io/shm.t index e34be50..520f427 100644 --- a/t/io/shm.t +++ b/t/io/shm.t @@ -26,9 +26,7 @@ BEGIN { 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'); } -- 1.8.3.1