stas 2004/10/28 15:59:09
Modified: perl-framework/Apache-Test/lib/Apache TestConfig.pm
Log:
it takes three attempts to commit 1 line patch
Revision Changes Path
1.253 +2 -2
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.252
retrieving revision 1.253
diff -u -u -r1.252 -r1.253
--- TestConfig.pm 28 Oct 2004 22:43:22 -0000 1.252
+++ TestConfig.pm 28 Oct 2004 22:59:09 -0000 1.253
@@ -1817,6 +1817,8 @@
for (@inc) {
my $candidate = File::Spec->rel2abs(catfile $_, CUSTOM_CONFIG_FILE);
next unless -e $candidate;
+ # launder for -T
+ ($candidate) = $candidate =~ /^(.*)/;
return $custom_config_path = $candidate;
}
@@ -2077,8 +2079,6 @@
if (my $custom_config_path = custom_config_path()) {
debug "loading custom config data from: '$custom_config_path'";
$custom_config_loaded++;
- # launder for -T
- ($custom_config_path) = $custom_config_path = ~/^(.*)/;
require $custom_config_path;
}
else {
