mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Git.pm: add specified name to tempfile template

Browse Source 
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>
This commit is contained in:
Eric Wong
2014-10-29 19:31:55 +00:00
parent 7676aff709
commit 822aaf0f08
1 changed files with 4 additions and 1 deletions
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(); $tmpdir = $self->repo_path();
} }
my $n = $name;
$n =~ s/\W/_/g; # no strange chars
($$temp_fd, $fname) = File::Temp::tempfile( ($$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"); ) or throw Error::Simple("couldn't open new temp file");
$$temp_fd->autoflush; $$temp_fd->autoflush;