cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm

[dougm]

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;