kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

Git.pm: add specified name to tempfile template 

This should help me track down errors in git-svn more easily:

	write .git/Git_XXXXXX: Bad file descriptor
	 at /usr/lib/perl5/SVN/Ra.pm line 623

Signed-off-by: Eric Wong <normalperson@yhbt.net>
maint
Eric Wong 2014-10-29 19:31:55 +00:00
parent 7676aff709
commit 822aaf0f08
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
perl/Git.pm
View File

@ -1294,8 +1294,11 @@ sub _temp_cache {
$tmpdir = $self->repo_path();
}

my $n = $name;
$n =~ s/\W/_/g; # no strange chars

($$temp_fd, $fname) = File::Temp::tempfile(
'Git_XXXXXX', UNLINK => 1, DIR => $tmpdir,
"Git_${n}_XXXXXX", UNLINK => 1, DIR => $tmpdir,
) or throw Error::Simple("couldn't open new temp file");

$$temp_fd->autoflush;