convert input to mask update - PDLPorters/pdl#511

mohawk2 · mohawk2 · commit f4869f09e2e4 · 2024-12-20T08:26:37.000Z
diff --git a/lib/PDL/Graphics/PGPLOT/Window.pm b/lib/PDL/Graphics/PGPLOT/Window.pm
@@ -5166,7 +5166,7 @@ EOD
 	}
 	my($mask) = (isfinite $vals);
 	$mask &= ($vals != $missing) if(defined $missing);
-	$mask->slice("1:-1") &= (($pp->slice("0:-2") != 0) | ($pp->slice("1:-1") != 0));
+	$mask->slice("1:-1") &= long(($pp->slice("0:-2") != 0) | ($pp->slice("1:-1") != 0));
 	my($c,$d) = minmax(where($vals,$mask));
 	$min .= $c;
 	$max .= $d;

Original file line number	Diff line number	Diff line change
`@@ -5166,7 +5166,7 @@ EOD`
`5166`	`5166`	`}`
`5167`	`5167`	`my($mask) = (isfinite $vals);`
`5168`	`5168`	`$mask &= ($vals != $missing) if(defined $missing);`
`5169`		`- $mask->slice("1:-1") &= (($pp->slice("0:-2") != 0) \| ($pp->slice("1:-1") != 0));`
	`5169`	`+ $mask->slice("1:-1") &= long(($pp->slice("0:-2") != 0) \| ($pp->slice("1:-1") != 0));`
`5170`	`5170`	`my($c,$d) = minmax(where($vals,$mask));`
`5171`	`5171`	`$min .= $c;`
`5172`	`5172`	`$max .= $d;`