This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Refactor sigdispatch.t to use is_miniperl() instead testing %ENV for minitest.
authorNicholas Clark <nick@ccl4.org>
Mon, 7 Mar 2011 21:54:40 +0000 (21:54 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 7 Mar 2011 21:54:40 +0000 (21:54 +0000)
t/op/sigdispatch.t

index 3d92a39..75bc417 100644 (file)
@@ -39,7 +39,8 @@ eval {
 is($@, "Alarm!\n", 'after the second loop');
 
 SKIP: {
-    skip('We can\'t test blocking without sigprocmask', 11) if $ENV{PERL_CORE_MINITEST} || !$Config{d_sigprocmask};
+    skip('We can\'t test blocking without sigprocmask', 11)
+       if is_miniperl() || !$Config{d_sigprocmask};
 
     require POSIX;
     my $new = POSIX::SigSet->new(&POSIX::SIGUSR1);