This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #82988] Skip hanging taint.t test on MirBSD 10
authorSteven Schubiger <stsc@refcnt.org>
Sat, 29 Jan 2011 19:23:48 +0000 (11:23 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 29 Jan 2011 19:54:21 +0000 (11:54 -0800)
This patch allows for make test to complete when perl is configured
with ithreads support (verified for MirBSD 10 on eurynome.mirbsd.org
where also the Test::Smoke core smoker runs).

t/op/taint.t

index e873ba2..fb8ad34 100644 (file)
@@ -48,6 +48,7 @@ my $Is_NetWare  = $^O eq 'NetWare';
 my $Is_Dos      = $^O eq 'dos';
 my $Is_Cygwin   = $^O eq 'cygwin';
 my $Is_OpenBSD  = $^O eq 'openbsd';
+my $Is_MirBSD   = $^O eq 'mirbsd';
 my $Invoke_Perl = $Is_VMS      ? 'MCR Sys$Disk:[]Perl.exe' :
                   $Is_MSWin32  ? '.\perl'               :
                   $Is_NetWare  ? 'perl'                 :
@@ -1159,8 +1160,8 @@ SKIP:
 {
     SKIP: {
        skip "fork() is not available", 3 unless $Config{'d_fork'};
-       skip "opening |- is not stable on threaded OpenBSD with taint", 3
-            if $Config{useithreads} && $Is_OpenBSD;
+       skip "opening |- is not stable on threaded Open/MirBSD with taint", 3
+            if $Config{useithreads} and $Is_OpenBSD || $Is_MirBSD;
 
        $ENV{'PATH'} = $TAINT;
        local $SIG{'PIPE'} = 'IGNORE';