From 2b51cac21a5a8c0c4f396f5a56c7c29be090f556 Mon Sep 17 00:00:00 2001 From: Ted Hess Date: Tue, 5 Jun 2018 10:05:35 -0400 Subject: [PATCH] scripts: Replace obsolete POSIX tmpnam in slugimage.pl with File::Temp function Signed-off-by: Ted Hess (backported from 7590c3c58f5e9d580c86da10473d1d29a2f081c9) --- scripts/slugimage.pl | 8 ++++---- 1 file 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) { -- 2.30.2