Fixed small bug which also allows the script to run properly on RH9.0

(I'm not sure why it wouldn't run before though)
This commit is contained in:
Andrew Johnson
2003-07-25 15:17:57 +00:00
parent 7e1db8bc95
commit 360c3f4a36

View File

@@ -44,7 +44,7 @@ sub ReplaceLineHook { return $_[0]; }
sub ReplaceFilename { # (filename)
my($file) = $_[0];
$file =~ s|.*/CVS/?.*||; # Ignore CVS files and Replace.pl scripts
$file =~ s|.*/$apptypename/Replace.pl$||;
$file =~ s|.*/$apptypename/Replace\.pl$||;
if($opt_i) {
# Handle name@arch stuff, copy only the closest matching file