Gnuplot unknown plot type give correct error

PDLPorters · Apr 25, 2024 · 3c430e4 · 3c430e4
1 parent fa71663
commit 3c430e4
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/lib/PDL/Graphics/Simple/Gnuplot.pm b/lib/PDL/Graphics/Simple/Gnuplot.pm
@@ -329,11 +329,8 @@ sub plot {
     my @arglist = ($po);
 
     for my $block(@_) {
-	my $ct = $curve_types->{  $block->[0]->{with}  };
-
-	unless(defined($ct)) {
-	    die "PDL::Graphics::Simple::Gnuplot: undefined curve type $ct";
-	}
+	die "PDL::Graphics::Simple::Gnuplot: undefined curve type $block->[0]{with}"
+	    unless my $ct = $curve_types->{ $block->[0]{with} };
 	if(ref($ct) eq 'CODE') {
 	    $block = &$ct($me, $po, @$block);
 	} else {