From f247a6c8db76d647c170e4640d1deeddbcca54ea Mon Sep 17 00:00:00 2001 From: tipaul Date: Thu, 12 Feb 2004 09:13:40 +0000 Subject: [PATCH] ignoring .tmpl that are hidden files (.somthing.tmpl). hidden files are generated by tools like emacs --- misc/translator/tmpl_process.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/misc/translator/tmpl_process.pl b/misc/translator/tmpl_process.pl index a4eb77940d..7576a013ec 100755 --- a/misc/translator/tmpl_process.pl +++ b/misc/translator/tmpl_process.pl @@ -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 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"); } -- 2.39.2