diff options
| author | Eric Wong <normalperson@yhbt.net> | 2014-10-29 19:31:55 (GMT) |
|---|---|---|
| committer | Eric Wong <normalperson@yhbt.net> | 2014-10-29 19:59:23 (GMT) |
| commit | 822aaf0f0865299d6cd3a6866e8047638e3f898c (patch) | |
| tree | b77e7ed4e40bafb78e58c684dd75bb9f512d6cf3 /perl | |
| parent | 7676aff70973e617c3f58a8633db6d0e3ee99e45 (diff) | |
| download | git-822aaf0f0865299d6cd3a6866e8047638e3f898c.zip git-822aaf0f0865299d6cd3a6866e8047638e3f898c.tar.gz git-822aaf0f0865299d6cd3a6866e8047638e3f898c.tar.bz2 | |
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>
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Git.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl/Git.pm b/perl/Git.pm index 204fdc6..b5905ee 100644 --- a/perl/Git.pm +++ b/perl/Git.pm @@ -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; |