From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 17 Nov 2006 04:20:01 +0000 (+0000)
Subject: Change #27951 added tests to t/op/taint.t involving taint, opening
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b4fda7a3efdbcb46909f79ab633c4ab86e35dbb4;p=p5sagit%2Fp5-mst-13.2.git

Change #27951 added tests to t/op/taint.t involving taint, opening
"|-".  Unfortunately, this usually reacts badly on OpenBSD with
threaded Perls, causing zombie processes nearly every time this is run.
For now, skipping the test seem reasonable while working on a solution
to the problem.

p4raw-id: //depot/perl@29297
---

diff --git a/t/op/taint.t b/t/op/taint.t
index be9071f..f9bb604 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -44,6 +44,7 @@ my $Is_MSWin32  = $^O eq 'MSWin32';
 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 $Invoke_Perl = $Is_VMS      ? 'MCR Sys$Disk:[]Perl.' :
                   $Is_MSWin32  ? '.\perl'               :
                   $Is_MacOS    ? ':perl'                :
@@ -1163,6 +1164,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;
 
 	$ENV{'PATH'} = $TAINT;
 	local $SIG{'PIPE'} = 'IGNORE';