Skip to content

Commit

Permalink
Use test.pl miniperl check rather than by-hand in t/io/shm.t
Browse files Browse the repository at this point in the history
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
George Greer committed Sep 15, 2011
1 parent 8d64643 commit 877c86f
Showing 1 changed file with 1 addition and 3 deletions.
4 changes: 1 addition & 3 deletions t/io/shm.t
Expand Up @@ -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');
}
Expand Down

0 comments on commit 877c86f

Please sign in to comment.