catch failure of Simple->new

mohawk2 · mohawk2 · commit 4cd9cd4e2ac8 · 2024-03-27T20:49:48.000Z
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 );
 }
 

Original file line number	Diff line number	Diff line change
`@@ -732,6 +732,7 @@ sub plot {`
`732`	`732`	`$obj = shift;`
`733`	`733`	`} else {`
`734`	`734`	`$obj = $global_plot = __PACKAGE__->new;`
	`735`	`+ barf __PACKAGE__."->new failed" unless $obj;`
`735`	`736`	`}`
`736`	`737`
`737`	`738`	`my $curve_options = PDL::Options->new( {`
`@@ -1040,7 +1041,7 @@ sub plot {`
`1040`	`1041`
`1041`	`1042`	`##############################`
`1042`	`1043`	`# At long last, the parsing is over. Dispatch the call.`
`1043`		`- $obj->{obj}->{keys} = $obj->{keys};`
	`1044`	`+ $obj->{obj}{keys} = $obj->{keys};`
`1044`	`1045`	`$obj->{obj}->plot( $po, @blocks );`
`1045`	`1046`	`}`
`1046`	`1047`