no need string-eval

PDLPorters · Mar 22, 2021 · 3f6d08c · 3f6d08c
1 parent 39fd8ca
commit 3f6d08c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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;
 }