[libhttp-entity-parser-perl] 02/08: save the file in $TMPDIR, rather than in a dir with a predictable name

[gregor herrmann]

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 <ether at 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