PLplot only need plsstrm once

PDLPorters · Sep 17, 2024 · c282a78 · c282a78
1 parent 337e4c5
commit c282a78
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/lib/PDL/Graphics/Simple/PLplot.pm b/lib/PDL/Graphics/Simple/PLplot.pm
@@ -326,10 +326,9 @@ sub plot {
 	$me->{logaxis} = $ipo->{logaxis};
 	$me->{multi_cur}++ if $me->{opt}{multi};
 	plsstrm($me->{obj}{STREAMNUMBER});
-	pladv($me->{multi_cur} or 1);
-	if (!$me->{multi_n}   or  $me->{multi_n}==1 ) {
+	pladv($me->{multi_cur} || 1);
+	if (!$me->{multi_n} or $me->{multi_n}==1) {
 	    if ($me->{opt}->{type}=~ m/^i/) {
-		plsstrm($me->{obj}{STREAMNUMBER});
 		pleop();
 		plclear();
 		plbop();