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/.
PerlGameDev · Aug 11, 2013 · 89d8ba5 · 89d8ba5
1 parent 75942f1
commit 89d8ba5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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) {