diff options
| author | Ted Hess <thess@kitschensync.net> | 2018-06-05 10:05:35 -0400 |
|---|---|---|
| committer | Ted Hess <thess@kitschensync.net> | 2018-06-05 10:07:42 -0400 |
| commit | 7590c3c58f5e9d580c86da10473d1d29a2f081c9 (patch) | |
| tree | c7215a6b57d08c101fa32211bd90a8a8965c2f42 /scripts | |
| parent | 987900f2de76e6d292e55aa068c39b03f79c8812 (diff) | |
| download | upstream-7590c3c58f5e9d580c86da10473d1d29a2f081c9.tar.gz upstream-7590c3c58f5e9d580c86da10473d1d29a2f081c9.tar.bz2 upstream-7590c3c58f5e9d580c86da10473d1d29a2f081c9.zip | |
scripts: Replace obsolete POSIX tmpnam in slugimage.pl with File::Temp function
Signed-off-by: Ted Hess <thess@kitschensync.net>
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/slugimage.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/slugimage.pl b/scripts/slugimage.pl index deac6ac6dd..8c0654d4f6 100755 --- a/scripts/slugimage.pl +++ b/scripts/slugimage.pl @@ -40,7 +40,7 @@ use strict; use warnings; use Getopt::Long qw(:config no_ignore_case); -use POSIX qw(tmpnam); +use File::Temp qw(tempfile); my($debug) = 0; my($quiet) = 0; @@ -993,7 +993,7 @@ if ($pack) { # don't touch RedBoot and SysConf anyway. If no Trailer is specified, # put in one. if (not defined $redboot and not -e "RedBoot") { - $redboot = tmpnam(); + $redboot = tempfile(); open TMP, ">$redboot" or die "Cannot open file $redboot: $!"; push @cleanup, $redboot; # The RedBoot partition is 256 * 1024 = 262144; the trailer we add @@ -1006,7 +1006,7 @@ if ($pack) { close TMP; } if (not defined $sysconf and not -e "SysConf") { - $sysconf = tmpnam(); + $sysconf = tempfile(); open TMP, ">$sysconf" or die "Cannot open file $sysconf: $!"; push @cleanup, $sysconf; # The SysConf partition is 128 * 1024 = 131072 @@ -1014,7 +1014,7 @@ if ($pack) { close TMP; } if (not defined $trailer and not -e "Trailer") { - $trailer = tmpnam(); + $trailer = tempfile(); open TMP, ">$trailer" or die "Cannot open file $trailer: $!"; push @cleanup, $trailer; for my $i (@sercomm_flash_trailer) { |