Lines Matching refs:FILE
40 # Has mode where it will roll back to svn version numbers in the patch file so svn
54 # When doing a removal, check that old file matches what's being removed.
64 use File::Basename;
65 use File::Spec;
121 # Need to use a typeglob to pass the file handle as a parameter,
125 print "Parsed " . @diffHashRefs . " diffs from patch file(s).\n";
136 for my $file (sort keys %sourceRevisions) {
137 my $version = $sourceRevisions{$file};
138 print "Getting version $version of $file\n";
139 system("svn", "update", "-r", $version, $file) == 0 or die "Failed to run svn update -r $version $file.";
164 my @dirs = File::Spec->splitdir($path);
167 $dir = File::Spec->catdir($dir, shift @dirs);
192 # $pathRelativeToRoot: the path of the file to be patched, relative to the
211 my $file = shift;
212 open(FILE, $file) or die "Can't open '$file': $!";
213 binmode(FILE);
214 my $checksum = Digest::MD5->new->addfile(*FILE)->hexdigest();
215 close(FILE);
227 open FILE, ">", $fullPath or die "Failed to open $fullPath.";
228 print FILE decode_base64($1);
229 close FILE;
252 if (open FILE, $fullPath) {
255 $originalContents = join("", <FILE>);
256 close FILE;
276 open FILE, ">", $fullPath or die "Failed to open $fullPath.";
277 print FILE $out;
278 close FILE;
293 if (-d File::Spec->catdir($dir, $item)) {
296 next if (scmWillDeleteFile(File::Spec->catdir($dir, $item)));
388 # Return whether the file at the given path is known to Git.
393 # "error: pathspec 'test.png' did not match any file(s) known to git.
456 # Git removes a directory if it becomes empty when the last file it contains is
461 # there was no file. The --ignore-unmatch switch gracefully handles this case.
