can now do pdl(cplx(1,2)) - fix #543

Author: mohawk2

Changes

@@ -1,4 +1,6 @@
 - pptemplate improvements (#538 #539) - thanks @HaraldJoerg
+- pdldoc database now reproducible (#542) - thanks @daym
+- can now do pdl(cplx(1,2)) (#543) - thanks @gladilin for report
 
 2.100 2025-03-27
 - fix Math function prototypes for GCC 15 (#528) - thanks @jplesnik for report

lib/PDL/Core.pm

@@ -1232,7 +1232,7 @@ sub _establish_type {
 }
 
 sub PDL::new {
-   return $_[0]->copy if ref($_[0]);
+   return $_[0]->copy if ref($_[0]) and UNIVERSAL::isa($_[0], 'PDL');
    my $this = shift;
    my $type = ref($_[0]) eq 'PDL::Type' ? shift->enum : undef;
    my $value = (@_ > 1 ? [@_] : shift);
@@ -1283,13 +1283,17 @@ sub PDL::new {
          }
       }
    }
+   elsif (blessed($value) and UNIVERSAL::isa($value, 'Math::Complex')) {
+      $new->setdims([]);
+      set_c($new, [], $value);
+   }
    elsif (blessed($value)) { # Object
-       $new = $value->copy;
+      $new = $value->copy;
    }
    else {
-       barf("Can not interpret argument $value of type ".ref($value) );
+      barf("Can not interpret argument $value of type ".ref($value) );
    }
-   return $new;
+   $new;
 }
 
 

t/core.t

@@ -446,6 +446,8 @@ $y = pdl(5,$x);
 is_pdl $y, pdl([[[5,0]]],[[[0,0]]]), "concatenating an empty and a scalar on the left gives the right answer";
 }
 
+is_pdl pdl(Math::Complex->make(1,2)), pdl('1+2i'), 'pdl(Math::Complex obj)';
+
 # cat problems
 eval {cat(1, pdl(1,2,3), {}, 6)};
 isnt $@, '', 'cat barfs on non-ndarray arguments';