catch failure of engine->new

PDLPorters · Mar 27, 2024 · 1dd2085 · 1dd2085
1 parent 6b6a916
commit 1dd2085
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/PDL/Graphics/Simple.pm b/lib/PDL/Graphics/Simple.pm
@@ -732,6 +732,7 @@ sub plot {
 	$obj = shift;
     } else {
 	$obj = $global_plot = __PACKAGE__->new;
+	barf __PACKAGE__."->new failed" unless $obj;
     }
 
     my $curve_options = PDL::Options->new( {
@@ -1040,7 +1041,7 @@ sub plot {
 
     ##############################
     # At long last, the parsing is over.  Dispatch the call.
-    $obj->{obj}->{keys} = $obj->{keys};
+    $obj->{obj}{keys} = $obj->{keys};
     $obj->{obj}->plot( $po, @blocks );
 }