Change deprecated POSIX::tmpnam to File::Temp versions

interchange · Oct 24, 2017 · 7277119 · 7277119
1 parent 197edf2
commit 7277119
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/code/UI_Tag/substitute_file.coretag b/code/UI_Tag/substitute_file.coretag
@@ -19,6 +19,7 @@ package File::Copy;
 require File::Basename;
 import File::Basename 'basename';
 package Vend::Interpolate;
+require File::Temp;
 sub {
 	my ($file, $opt, $replace) = @_;
 	my $die = sub {
@@ -49,7 +50,7 @@ sub {
 		return $die->("missing begin or end marker");
 	}
 
-	my $bak = POSIX::tmpnam();
+	my $bak = File::Temp::tmpnam();
 	File::Copy::copy($file, $bak)
 		or return $die->(
 					"substitute_file - %s: unable to backup to %s",

diff --git a/lib/Vend/External.pm b/lib/Vend/External.pm
@@ -41,6 +41,7 @@ use Vend::Session;
 use Vend::Cart;
 use Cwd;
 require Data::Dumper;
+require File::Temp;
 
 BEGIN {
 	if($ENV{EXT_INTERCHANGE_DIR}) {
@@ -58,7 +59,7 @@ sub check_html {
 		logError("Can't check HTML: No global CheckHTML defined. Contact admin.", '');
 	}
 
-	my $file = POSIX::tmpnam();
+	my $file = File::Temp::tmpnam();
 	open(CHECK, "|$Global::CheckHTML > $file 2>&1")	or die "Couldn't fork: $!\n";
 	print CHECK $$out;
 	close CHECK;

diff --git a/scripts/crontab.PL b/scripts/crontab.PL
@@ -45,7 +45,7 @@ BEGIN {
 
 ### END CONFIGURATION VARIABLES
 
-use POSIX qw/tmpnam/;
+use File::Temp qw/:POSIX/;
 use Vend::Cron;
 
 my $prospect = tmpnam();