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

[stas]

stas        2002/12/11 09:26:07

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  ensure that a core file is a file, before complaining
  Submitted by: "Philippe M. Chiasson" <[EMAIL PROTECTED]>
  Reviewed by:  stas
  
  Revision  Changes    Path
  1.97      +2 -0      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
  
  Index: TestRun.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
  retrieving revision 1.96
  retrieving revision 1.97
  diff -u -r1.96 -r1.97
  --- TestRun.pm        7 Nov 2002 06:39:48 -0000       1.96
  +++ TestRun.pm        11 Dec 2002 17:26:07 -0000      1.97
  @@ -610,6 +610,7 @@
       my $times = 0;
   
       finddepth(sub {
  +        return unless -f $_;
           return unless /$core_pat/o;
           my $core = "$File::Find::dir/$_";
           if (exists $core_files{$core} && $core_files{$core} == -M $core) {
  @@ -634,6 +635,7 @@
       %core_files = (); # reset global
   
       finddepth(sub {
  +        return unless -f $_;
           return unless /$core_pat/o;
           my $core = "$File::Find::dir/$_";
           info "consider removing an old $core file before running tests";