httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm
Date Wed, 17 Oct 2001 20:06:25 GMT
dougm       01/10/17 13:06:25

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfig.pm
  Log:
  rid another 5.006-ism
  
  Revision  Changes    Path
  1.76      +2 -1      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.75
  retrieving revision 1.76
  diff -u -r1.75 -r1.76
  --- TestConfig.pm	2001/10/17 18:19:55	1.75
  +++ TestConfig.pm	2001/10/17 20:06:25	1.76
  @@ -700,7 +700,8 @@
       # hence ensure that sub-dirs are always treated before a parent dir
       for (reverse sort keys %{ $self->{clean}->{dirs} }) {
           if (-d $_) {
  -            opendir(my $dh, $_);
  +            my $dh = Symbol::gensym();
  +            opendir($dh, $_);
               my $notempty = grep { ! /^\.{1,2}$/ } readdir $dh;
               closedir $dh;
               next if $notempty;
  
  
  

Mime
View raw message