207 |
my $new_norm_path = $normalize_path; |
my $new_norm_path = $normalize_path; |
208 |
$new_norm_path =~ s/\.xml$/.pl/; |
$new_norm_path =~ s/\.xml$/.pl/; |
209 |
if (-e $new_norm_path) { |
if (-e $new_norm_path) { |
210 |
$log->info("--force-set replaced $normalize_path with $new_norm_path"); |
$log->debug("--force-set replaced $normalize_path with $new_norm_path"); |
211 |
$normalize_path = $new_norm_path; |
$normalize_path = $new_norm_path; |
212 |
} else { |
} else { |
213 |
$log->warn("--force-set failed on $new_norm_path, fallback to $normalize_path"); |
$log->debug("--force-set failed on $new_norm_path, fallback to $normalize_path"); |
214 |
} |
} |
215 |
} |
} |
216 |
|
|