Lines Matching refs:file
29 # Script to do file renaming.
54 my $file = $_;
56 if ($file eq "icu") {
61 if ($file =~ /^\../) {
66 return if $file =~ /^ChangeLog/;
67 return if -d $file;
81 for my $file (sort @paths) {
82 my $f = $file;
84 $newFile{$file} = $f if $f ne $file;
87 for my $file (sort @paths) {
88 if ($newFile{$file}) {
89 my $newFile = $newFile{$file};
90 print "Renaming $file to $newFile\n";
91 scmMoveOrRenameFile($file, $newFile);
95 # change all file contents
97 for my $file (sort @paths) {
98 $file = $newFile{$file} if $newFile{$file};
102 open FILE, $file or die;
113 open FILE, ">", $file or die;