Просмотр исходного кода

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

Signed-off-by: Ted Hess <[email protected]>
Ted Hess 7 лет назад
Родитель
Сommit
7590c3c58f
1 измененных файлов с 4 добавлено и 4 удалено
  1. 4 4
      scripts/slugimage.pl

+ 4 - 4
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) {