Skip to content
Browse files

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.
  • Loading branch information...
1 parent 8d64643 commit 877c86f70c562bc8c090bb55c3d7bb7ee1cc0b90 George Greer committed
Showing with 1 addition and 3 deletions.
  1. +1 −3 t/io/shm.t
View
4 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');
}

0 comments on commit 877c86f

Please sign in to comment.
Something went wrong with that request. Please try again.