ignoring .tmpl that are hidden files (.somthing.tmpl). hidden files are generated by tools like emacs

This commit is contained in:
tipaul 2004-02-12 09:13:40 +00:00
parent 0be46ba475
commit f247a6c8db
1 changed files with 3 additions and 3 deletions

View File

@ -225,7 +225,7 @@ sub install_strhash
if(-f $out_file) {
$diff = `diff $out_file $out_file_tmp`;
} else {
$diff = "write it, it's new";
$diff = "write it, it's new";#'
}
if ($diff) {
print "WRITING : $out_file\n";
@ -267,7 +267,7 @@ sub update_strhash
{
$str =~ s/[\n\r\f]+$//; # chomps the trailing \n (or <cr><lf> if file was edited with Windows)
$str =~ s/^[\s+:\(]*//; # remove useless characters
$str =~ s/[\s\*:\[*\(|\.,\)]*$//;
$str =~ s/[\s\*:\[*\(|\.,\)]*$//;#]
# the line begins with letter(s) followed by optional words and/or spaces
if($str =~ /^[ ]*[\w]+[ \w]*/)
@ -388,7 +388,7 @@ sub listfiles
{
@{$in_files} = listfiles($in_files, "$dir/$tmp_file", $type);
}
elsif( $tmp_file =~ /\.$type$/ )
elsif( $tmp_file =~ /\.$type$/ && !($tmp_file =~ /^\./))
{
push(@{$in_files}, "$dir/$tmp_file");
}