diff options
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 204fdc6737..b5905ee1ad 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; |