From 89d8ba520d24ec76ce72a074aa96fd31ad9debe7 Mon Sep 17 00:00:00 2001 From: root Date: Sun, 11 Aug 2013 19:40:11 -0400 Subject: [PATCH] Attempting to use tempfile with new versions of File::Temp. Ref: http://www.dagolden.com/index.php/2109/why-the-latest-filetemp-might-surprise-you/. --- lib/Alien/SDL2.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Alien/SDL2.pm b/lib/Alien/SDL2.pm index 4407347..ef02133 100644 --- a/lib/Alien/SDL2.pm +++ b/lib/Alien/SDL2.pm @@ -6,7 +6,7 @@ use File::ShareDir qw(dist_dir); use File::Spec; use File::Find; use File::Spec::Functions qw(catdir catfile rel2abs); -use File::Temp; +use File::Temp qw(tempfile); use Capture::Tiny; use Config; @@ -240,7 +240,7 @@ sub check_header { } my $cb = ExtUtils::CBuilder->new( quiet => 1, config => $config ); - my ($fs, $src) = File::Temp->tempfile('XXXXaa', SUFFIX => '.c', UNLINK => 1); + my ($fs, $src) = tempfile('XXXXaa', SUFFIX => '.c', UNLINK => 1); my $inc = ''; my $i = 0; foreach (@header) {