simplify ternary op

PDLPorters · Mar 22, 2021 · ced1da9 · ced1da9
1 parent 3693618
commit ced1da9
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/FFTW3_header_include.pm b/FFTW3_header_include.pm
@@ -86,8 +86,9 @@ EOF
 
   # I now have the arguments and the plan. Go!
   my $internal_function =
-    $is_real_fft ?
-    ( $do_inverse_fft ? "PDL::__irfft$rank" : "PDL::__rfft$rank") : "PDL::__fft$rank";
+    !$is_real_fft ? "PDL::__fft$rank" :
+    $do_inverse_fft ? "PDL::__irfft$rank" :
+    "PDL::__rfft$rank";
   eval { no strict 'refs'; $internal_function->( $in, $out, $plan ) };
   barf $@ if $@;