From 3f6d08cbdb7022066bf8a4e7319253d72bd5f383 Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Mon, 22 Mar 2021 14:34:15 +0000
Subject: [PATCH] no need string-eval

---
 FFTW3_header_include.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FFTW3_header_include.pm b/FFTW3_header_include.pm
index 0579d4e..ae1aed3 100644
--- a/FFTW3_header_include.pm
+++ b/FFTW3_header_include.pm
@@ -88,8 +88,8 @@ EOF
   my $internal_function =
     $is_real_fft ?
     ( $do_inverse_fft ? "PDL::__irfft$rank" : "PDL::__rfft$rank") : "PDL::__fft$rank";
-  eval( $internal_function . '( $in, $out, $plan );' );
-  barf "$thisfunction: eval failed calling the internal FFT routine: $@" if $@;
+  eval { no strict 'refs'; $internal_function->( $in, $out, $plan ) };
+  barf $@ if $@;
 
   return $out;
 }