perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject Re: [mp2] t/apr-ext/finfo and t/apr-ext/perlio failures on Linux
Date Sat, 04 Dec 2004 17:37:43 GMT
Stas Bekman wrote:
> Stas Bekman wrote:
> 
>> found the guilty:
>>
>>> So it must be some change in the last day or so. Now that I can 
>>> reproduce it, I'll work on fixing it.
>>
>>
>>
>> Upgrading from Test::Harness 2.42 to 2.44 breaks it.
>>
>> I just happened to upgrade it last night, that's why I didn't see the 
>> breakage till this morning.
> 
> 
> Though my errors are different from yours. Mine are all:
> 
>   Insecure dependency in piped open
> 
> so it must be some other module on your side. What upgrades did you do 
> against plain 5.8.6?

with this patch I now get the same errors as you do:

Index: Apache-Test/lib/Apache/TestConfig.pm
===================================================================
--- Apache-Test/lib/Apache/TestConfig.pm        (revision 109815)
+++ Apache-Test/lib/Apache/TestConfig.pm        (working copy)
@@ -1037,11 +1037,14 @@
      # untaint some %ENV fields
      local @ENV{ qw(IFS CDPATH ENV BASH_ENV) };

-    # Temporarly untaint PATH
+    # Temporarily untaint PATH
      (local $ENV{PATH}) = ( $ENV{PATH} =~ /(.*)/ );
      # -T disallows relative directories in the PATH
      $ENV{PATH} = join ':', grep !/^\./, split /:/, $ENV{PATH};

+    # launder for -T
+    $cmd =~ /(.*)/; $cmd = $1;
+
      my $handle = Symbol::gensym();
      open $handle, "$cmd|" or die "$cmd failed: $!";

so it's some other module.

-- 
__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message