From 85b7214ac8aae804155f0e90ea1300d1b211c336 Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Sat, 4 May 2024 23:10:40 +0100
Subject: [PATCH] simplify dim-number check

---
 lib/PDL/Graphics/Simple.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/PDL/Graphics/Simple.pm b/lib/PDL/Graphics/Simple.pm
index 8a6e6fb..e815507 100644
--- a/lib/PDL/Graphics/Simple.pm
+++ b/lib/PDL/Graphics/Simple.pm
@@ -932,10 +932,9 @@ sub _translate_plot {
       unless ( ($dims==1) | ($dims==$dmax) )->all;
 
     # Check that the number of dimensions is correct...
-    if($dims->dim(0) != $pt->{ndims}->[0]  and
-       ((!defined($pt->{ndims}->[1])) or ($dims->dim(0) != $pt->{ndims}->[1]))) {
-        barf "Data dimension (".$dims->dim(0)."-D PDLs) is not correct for plot type $ptn";
-    }
+    barf "Data dimension (".$dims->dim(0)."-D PDLs) is not correct for plot type $ptn (all dims=$dims)"
+      if $dims->dim(0) != $pt->{ndims}[0] and
+        (!defined($pt->{ndims}[1]) or $dims->dim(0) != $pt->{ndims}[1]);
 
     if (@args > 1) {
       # Accumulate x and y ranges...