From: Richard Bradfield <bradfirj@fstab.me>
Date: Wed, 22 Jul 2015 00:18:03 +0000 (+0100)
Subject: Replace deprecated tmpnam() call
X-Git-Tag: v2.0.23~50^2
X-Git-Url: https://git.netwichtig.de/gitweb/?a=commitdiff_plain;h=79d1a436bb5c7ab40e43130495c455ffc8c682a2;p=user%2Fhenk%2Fcode%2Finspircd.git

Replace deprecated tmpnam() call

From Perl 5.22 onwards, POSIX::tmpnam() has been deprecated (without the
usual 2 year deprecation cycle), using the File::Temp module instead
preserves compatibility while allowing compilation on 5.22 and later.
---

diff --git a/make/utilities.pm b/make/utilities.pm
index ae16ce3dc..baba584ad 100644
--- a/make/utilities.pm
+++ b/make/utilities.pm
@@ -29,6 +29,7 @@ use warnings FATAL => qw(all);
 
 use Exporter 'import';
 use POSIX;
+use File::Temp;
 use Getopt::Long;
 use Fcntl;
 our @EXPORT = qw(make_rpath pkgconfig_get_include_dirs pkgconfig_get_lib_dirs pkgconfig_check_version translate_functions promptstring);
@@ -404,7 +405,7 @@ sub translate_functions($$)
 			my $tmpfile;
 			do
 			{
-				$tmpfile = tmpnam();
+				$tmpfile = File::Temp::tmpnam();
 			} until sysopen(TF, $tmpfile, O_RDWR|O_CREAT|O_EXCL|O_NOFOLLOW, 0700);
 			print "(Created and executed \e[1;32m$tmpfile\e[0m)\n";
 			print TF $1;