From: Étienne BERSAC <etienne.bersac@dalibo.com>
Date: Wed, 20 Sep 2017 09:36:19 +0000 (+0200)
Subject: Use an isolated tmpdir
X-Git-Tag: v10.0~33^2
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=692cc4a52ea19d4b52f0db53931f5c5594a640ab;p=pgbadger

Use an isolated tmpdir
---

diff --git a/pgbadger b/pgbadger
index c866316..0a37b15 100755
--- a/pgbadger
+++ b/pgbadger
@@ -44,7 +44,7 @@ use POSIX qw(locale_h sys_wait_h _exit strftime);
 setlocale(LC_NUMERIC, '');
 setlocale(LC_ALL,     'C');
 use File::Spec qw/ tmpdir /;
-use File::Temp qw/ tempfile /;
+use File::Temp qw/ tempfile tempdir /;
 use IO::Handle;
 use IO::Pipe;
 use FileHandle;
@@ -55,7 +55,8 @@ $VERSION = '9.2';
 
 $SIG{'CHLD'} = 'DEFAULT';
 
-my $TMP_DIR      = File::Spec->tmpdir() || '/tmp';
+my $TMP_DIR = File::Spec->tmpdir() || '/tmp';
+$TMP_DIR      = tempdir($TMP_DIR . "/pgbadger-XXXX", CLEANUP => 1);
 my %RUNNING_PIDS = ();
 my @tempfiles    = ();
 my $parent_pid   = $$;