domenico/openwrt_NSS_ACW
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

scripts: Replace obsolete POSIX tmpnam in slugimage.pl with File::Temp function

Browse Source 
Signed-off-by: Ted Hess <thess@kitschensync.net>
This commit is contained in:
Ted Hess
2018-06-05 10:05:35 -04:00
parent 987900f2de
commit 7590c3c58f
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/slugimage.pl
View File

@@ -40,7 +40,7 @@ use strict;
use warnings; use warnings;
use Getopt::Long qw(:config no_ignore_case); use Getopt::Long qw(:config no_ignore_case);
use POSIX qw(tmpnam); use File::Temp qw(tempfile);
my($debug) = 0; my($debug) = 0;
my($quiet) = 0; my($quiet) = 0;
@@ -993,7 +993,7 @@ if ($pack) {
# don't touch RedBoot and SysConf anyway. If no Trailer is specified, # don't touch RedBoot and SysConf anyway. If no Trailer is specified,
# put in one. # put in one.
if (not defined $redboot and not -e "RedBoot") { if (not defined $redboot and not -e "RedBoot") {
$redboot = tmpnam(); $redboot = tempfile();
open TMP, ">$redboot" or die "Cannot open file $redboot: $!"; open TMP, ">$redboot" or die "Cannot open file $redboot: $!";
push @cleanup, $redboot; push @cleanup, $redboot;
# The RedBoot partition is 256 * 1024 = 262144; the trailer we add # The RedBoot partition is 256 * 1024 = 262144; the trailer we add
@@ -1006,7 +1006,7 @@ if ($pack) {
close TMP; close TMP;
} }
if (not defined $sysconf and not -e "SysConf") { if (not defined $sysconf and not -e "SysConf") {
$sysconf = tmpnam(); $sysconf = tempfile();
open TMP, ">$sysconf" or die "Cannot open file $sysconf: $!"; open TMP, ">$sysconf" or die "Cannot open file $sysconf: $!";
push @cleanup, $sysconf; push @cleanup, $sysconf;
# The SysConf partition is 128 * 1024 = 131072 # The SysConf partition is 128 * 1024 = 131072
@@ -1014,7 +1014,7 @@ if ($pack) {
close TMP; close TMP;
} }
if (not defined $trailer and not -e "Trailer") { if (not defined $trailer and not -e "Trailer") {
$trailer = tmpnam(); $trailer = tempfile();
open TMP, ">$trailer" or die "Cannot open file $trailer: $!"; open TMP, ">$trailer" or die "Cannot open file $trailer: $!";
push @cleanup, $trailer; push @cleanup, $trailer;
for my $i (@sercomm_flash_trailer) { for my $i (@sercomm_flash_trailer) {