Merge pull request #93 from PDLPorters/fix-format-delete

Fix for processing format option
PDLPorters · Jan 29, 2023 · 2f2bc54 · 2f2bc54
2 parents b9310af + fff8377
commit 2f2bc54
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/PDL/Graphics/Gnuplot.pm b/lib/PDL/Graphics/Gnuplot.pm
@@ -6356,7 +6356,7 @@ our $_OptionEmitters = {
 		  delete $h{locations};
 		  delete $h{labels};
 
-		  push(@l,'format',"\"".quote_escape($h{format})."\"") if(defined(delete $h{format}));
+		  push(@l,'format',"\"".quote_escape($h{format})."\"") if(defined($h{format})); delete $h{format};
 
 		  if( defined( my $v = delete $h{font} ) ) {
 		      push @l, "font", '"'.join(',', ref($v) eq 'ARRAY' ? @$v : $v).'"';