This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to tag 0.18
in repository libhttp-entity-parser-perl.
commit a2979f719f7db223c60818aaa7b7f1d9d8fbee91
Author: Karen Etheridge <et...@cpan.org>
Date: Sat Oct 1 20:36:29 2016 -0700
save the file in $TMPDIR, rather than in a dir with a predictable name
---
lib/HTTP/Entity/Parser/MultiPart.pm | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lib/HTTP/Entity/Parser/MultiPart.pm
b/lib/HTTP/Entity/Parser/MultiPart.pm
index a8fe355..6f34edf 100644
--- a/lib/HTTP/Entity/Parser/MultiPart.pm
+++ b/lib/HTTP/Entity/Parser/MultiPart.pm
@@ -98,8 +98,7 @@ sub new {
if ( defined $disposition_filename ) {
$part->{filename} = $disposition_filename;
$self->{tempdir} ||= do {
- my $template = File::Spec->catdir(File::Spec->tmpdir,
"HTTP-Entity-Parser-MultiPart-XXXXX");
- my $dir = File::Temp->newdir($template, CLEANUP => 1);
+ my $dir = File::Temp->newdir('XXXXX', TMPDIR => 1, CLEANUP
=> 1);
# Temporary dirs will remove after the request.
push @{$env->{'http.entity.parser.multipart.tempdir'}},
$dir;
$dir;
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libhttp-entity-parser-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
