]> git.netwichtig.de Git - user/henk/code/inspircd.git/commitdiff
Replace deprecated tmpnam() call
authorRichard Bradfield <bradfirj@fstab.me>
Wed, 22 Jul 2015 00:18:03 +0000 (01:18 +0100)
committerRichard Bradfield <bradfirj@fstab.me>
Wed, 22 Jul 2015 00:18:03 +0000 (01:18 +0100)
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.

make/utilities.pm

index ae16ce3dc92836f238ab8f04d54223c58371f567..baba584ad240754030525f0d60fcaae7ec975302 100644 (file)
@@ -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;