Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Browse files

Merge pull request #1 from fingolfin/scripts-in-tmp

Use File::Temp::tempfile() instead of tmpnam() for temporary script fles.
  • Loading branch information...
2 parents 63ae7d5 + 2b911de commit 52bed09e22ba96cd40d751f1629d69c7863e23bb @fingolfin fingolfin committed
Showing with 4 additions and 5 deletions.
  1. +4 −5 perlmod/Fink/
9 perlmod/Fink/
@@ -28,7 +28,7 @@ package Fink::Services;
use Fink::Command qw(&rm_f);
use Fink::CLI qw(&word_wrap &get_term_width &print_breaking_stderr);
-use POSIX qw(:errno_h uname tmpnam);
+use POSIX qw(:errno_h uname);
use Fcntl qw(:flock);
use Getopt::Long;
use Data::Dumper;
@@ -647,10 +647,9 @@ sub prepare_script {
$$script .= "\n" if $$script !~ /\n$/; # require have trailing newline
# Put the script into a temporary file
- my $tempfile = tmpnam() or die "unable to get temporary file: $!";
- open (OUT, ">$tempfile") or die "unable to write to $tempfile: $!";
- print OUT $$script;
- close (OUT) or die "an unexpected error occurred closing $tempfile: $!";
+ my ($fh, $tempfile) = tempfile("fink.XXXXX") or die "unable to get temporary file: $!";
+ print $fh $$script;
+ close ($fh) or die "an unexpected error occurred closing $tempfile: $!";
chmod(0755, $tempfile);
# tempfile filename is handle to whole script

0 comments on commit 52bed09

Please sign in to comment.
Something went wrong with that request. Please try again.