commit 822aaf0f0865299d6cd3a6866e8047638e3f898c
author Eric Wong <normalperson@yhbt.net> Wed Oct 29 19:31:55 2014 +0000
committer Eric Wong <normalperson@yhbt.net> Wed Oct 29 19:59:23 2014 +0000
tree b77e7ed4e40bafb78e58c684dd75bb9f512d6cf3
parent 7676aff70973e617c3f58a8633db6d0e3ee99e45

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>

perl/Git.pm

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 @@
 			$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;