Fix shape to be indx data type (previously double default)

PDLPorters · Sep 17, 2015 · 1001556 · 1001556
1 parent a441f34
commit 1001556
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Basic/Core/Core.pm b/Basic/Core/Core.pm
@@ -828,7 +828,7 @@ sub PDL::shape {  # Return dimensions as a pdl
    my $pdl = PDL->topdl (shift);
    my @dims = ();
    for(0..$pdl->getndims()-1) {push @dims,($pdl->getdim($_))}
-   return pdl(\@dims);
+   return indx(\@dims);
 }
 
 sub PDL::howbig {