diff options
| author |  Eric Wong <normalperson@yhbt.net> | 2005-11-23 23:50:27 -0800 |
|---|---|---|
| committer |  Martin Langhoff <martin@catalyst.net.nz> | 2005-12-11 14:41:40 +1300 |
| commit | 5744f27794c284758a5c7956b9e5d5669c5dd318 (patch) | |
| tree | a9d5797d31137fdf0f44700e158c35b715c54102 | |
| parent | archimport: remove String::ShellQuote dependency. (diff) | |
| download | tgif-5744f27794c284758a5c7956b9e5d5669c5dd318.tar.xz | |
archimport: fix -t tmpdir switch
set TMPDIR env correctly if -t <tmpdir> is passed from the command-line.
setting TMPDIR => 1 as an argument to tempdir() has no effect otherwise
Signed-off-by: Eric Wong <normalperson@yhbt.net>
Signed-off-by: Martin Langhoff <martin@catalyst.net.nz>
| -rwxr-xr-x | git-archimport.perl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/git-archimport.perl b/git-archimport.perl index b7e24808ec..2ed2e3c065 100755 --- a/git-archimport.perl +++ b/git-archimport.perl @@ -88,9 +88,8 @@ usage if $opt_h; @ARGV >= 1 or usage(); my @arch_roots = @ARGV; -my ($tmpdir, $tmpdirname) = tempdir('git-archimport-XXXXXX', TMPDIR => 1, CLEANUP => 1); -my $tmp = $opt_t || 1; -$tmp = tempdir('git-archimport-XXXXXX', TMPDIR => 1, CLEANUP => 1); +$ENV{'TMPDIR'} = $opt_t if $opt_t; # $ENV{TMPDIR} will affect tempdir() calls: +my $tmp = tempdir('git-archimport-XXXXXX', TMPDIR => 1, CLEANUP => 1); $opt_v && print "+ Using $tmp as temporary directory\n"; my @psets = (); # the collection |