httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm
Date Tue, 21 Sep 2004 23:47:13 GMT
stas        2004/09/21 16:47:13

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfig.pm
  Log:
  -T disallows any relative directories in the PATH, not only ".". besides
  the previous cleanup pattern was not so good, which was my fault :)
  
  Revision  Changes    Path
  1.247     +3 -3      httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
  
  Index: TestConfig.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
  retrieving revision 1.246
  retrieving revision 1.247
  diff -u -u -r1.246 -r1.247
  --- TestConfig.pm	21 Sep 2004 05:39:23 -0000	1.246
  +++ TestConfig.pm	21 Sep 2004 23:47:13 -0000	1.247
  @@ -1017,9 +1017,9 @@
   
       # Temporarly untaint PATH
       (local $ENV{PATH}) = ( $ENV{PATH} =~ /(.*)/ );
  -    # -T doesn't like . in the PATH
  -    $ENV{PATH} =~ s#(^|:)\.[/\\]?(:|$)##; 
  -    
  +    # -T disallows relative directories in the PATH
  +    $ENV{PATH} = join ':', grep !/^\./, split /:/, $ENV{PATH};
  +
       my $handle = Symbol::gensym();
       open $handle, "$cmd|" or die "$cmd failed: $!";
   
  
  
  

Mime
View raw message