You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by st...@apache.org on 2003/01/31 00:59:41 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm
stas 2003/01/30 15:59:41
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
Log:
$File::Find::name is a portable path, whereas $File::Find::dir/$_ is not
Revision Changes Path
1.99 +1 -1 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.98
retrieving revision 1.99
diff -u -r1.98 -r1.99
--- TestRun.pm 26 Jan 2003 03:14:04 -0000 1.98
+++ TestRun.pm 30 Jan 2003 23:59:40 -0000 1.99
@@ -614,7 +614,7 @@
finddepth(sub {
return unless -f $_;
return unless /$core_pat/o;
- my $core = "$File::Find::dir/$_";
+ my $core = $File::Find::name;
if (exists $core_files{$core} && $core_files{$core} == -M $core) {
# we have seen this core file before the start of the test
info "an old core file has been found: $core";