IO::FITS more efficient dims-check

PDLPorters · Sep 30, 2024 · c78d17b · c78d17b
1 parent 28b52b9
commit c78d17b
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/IO/FITS/FITS.pm b/IO/FITS/FITS.pm
@@ -2311,9 +2311,8 @@ sub _prep_table {
 
 	  # First, check we're legit
 	  if( !UNIVERSAL::isa($var, 'PDL') || 
-	      $var->ndims != 2 ||
 	      !UNIVERSAL::isa($lengths,'PDL') ||
-	      $lengths->ndims != 1 ||
+	      ($var->ndims - $lengths->ndims) != 1 ||
 	      $lengths->dim(0) != $var->dim(0)
 	      ) {
 	      die <<FOO;