diff options
| author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2006-10-04T18·58+0000 |
|---|---|---|
| committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2006-10-04T18·58+0000 |
| commit | d98f750fd8de5a0546903061e94b9bda3f68681f (patch) | |
| tree | c689b6225fdf0160091caf39c4c4770dbf787a12 /scripts/nix-install-package.in | |
| parent | 34427a7b43382215774b1a164fd784a0f7804d33 (diff) | |
* tmpnam() -> File::Temp::tempdir().
Diffstat (limited to 'scripts/nix-install-package.in')
| -rw-r--r-- | scripts/nix-install-package.in | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/scripts/nix-install-package.in b/scripts/nix-install-package.in index dc46c8cb22..bb72601ebd 100644 --- a/scripts/nix-install-package.in +++ b/scripts/nix-install-package.in @@ -1,7 +1,7 @@ #! @perl@ -w use strict; -use POSIX qw(tmpnam); +use File::Temp qw(tempdir); sub usageError { @@ -65,10 +65,8 @@ if ($interactive && !defined $ENV{"NIX_HAVE_TERMINAL"}) { } -my $tmpDir; -do { $tmpDir = tmpnam(); } -until mkdir $tmpDir, 0777; -END { if (defined $tmpDir) { my $x = $?; system("@coreutils@/rm", "-rf", $tmpDir); $? = $x; } } +my $tmpDir = tempdir("nix-install-package.XXXXXX", CLEANUP => 1, TMPDIR => 1) + or die "cannot create a temporary directory"; sub barf { |