print got_complex_version results during build helping track freebsd fails

Author: mohawk2

lib/PDL/Math.pd

@@ -200,8 +200,15 @@ PDL_IF_BAD(if ( \$ISBAD($x()) || \$ISBAD($y()) ) { \$SETBAD($c()); } else,)
 EOF
 }
 
+sub g_c {
+  my ($func, $arg) = @_;
+  $got_complex{$func} = PDL::Core::Dev::got_complex_version($func, $arg);
+  print "got_complex_version($func, $arg): $got_complex{$func}\n";
+  $got_complex{$func};
+}
+
 foreach my $func (@ufuncs1) {
-    my $got_complex = $got_complex{$func} = PDL::Core::Dev::got_complex_version($func, 1);
+    my $got_complex = g_c($func, 1);
     pp_def($func,
 	   HandleBad => 1,
 	   NoBadifNaN => 1,
@@ -225,7 +232,7 @@ foreach my $func (@ufuncs1g) {
 }
 
 foreach my $func (@bifuncs1) {
-    my $got_complex = $got_complex{$func} = PDL::Core::Dev::got_complex_version($func, 2);
+    my $got_complex = g_c($func, 2);
     pp_def($func,
 	   HandleBad => 1,
 	   NoBadifNaN => 1,
@@ -492,7 +499,7 @@ works with native-complex data.
 
 sub cequiv {
   my ($func, $ref) = @_;
-  return if !($got_complex{$func} = PDL::Core::Dev::got_complex_version($func, 1));
+  return if !g_c($func, 1);
   pp_def("c$func",
       GenericTypes => $AF,
       Pars => 'i(); complex [o] o()',

lib/PDL/Ops.pd

@@ -152,14 +152,21 @@ EOF
     );
 }
 
+sub g_c {
+  my ($func, $arg) = @_;
+  $got_complex{$func} = PDL::Core::Dev::got_complex_version($func, $arg);
+  print "got_complex_version($func, $arg): $got_complex{$func}\n";
+  $got_complex{$func};
+}
+
 #simple binary functions
 sub bifunc {
     my ($name,$func,$mutator,$doc,%extra) = @_;
     my $funcov = ref $func eq 'ARRAY' ? $func->[1] : $func;
     my $isop = $funcov =~ s/^op//;
     my $funcovp = protect_chars $funcov;
     $func = $func->[0] if ref $func eq 'ARRAY';
-    my $got_complex = $got_complex{$func} = PDL::Core::Dev::got_complex_version($func, 2);
+    my $got_complex = g_c($func, 2);
     $extra{GenericTypes} = [ grep exists $is_real{$_}, @{$extra{GenericTypes}} ]
 	if !$got_complex and $extra{GenericTypes};
     $extra{HdrCode} .= << 'EOH';
@@ -216,7 +223,7 @@ sub ufunc {
     my $funcov = ref $func eq 'ARRAY' ? $func->[1] : $func;
     my $funcovp = protect_chars $funcov;
     $func = $func->[0] if ref $func eq 'ARRAY';
-    my $got_complex = $got_complex{$func} = PDL::Core::Dev::got_complex_version($func, 1);
+    my $got_complex = g_c($func, 1);
     $extra{GenericTypes} = [ grep exists $is_real{$_}, @{$extra{GenericTypes}} ]
 	if !$got_complex and $extra{GenericTypes};