Devel::Cover causes retval of ->{inv} to be wrong

PDLPorters · Sep 15, 2020 · 88ec767 · 88ec767
1 parent 85a8ffb
commit 88ec767
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/lib/PDL/Transform/Color.pm b/lib/PDL/Transform/Color.pm
@@ -473,6 +473,7 @@ sub t_gamma {
 	if($opt->{gamma} != 1) {
 	    $out *= ($in->abs + ($in==0)) ** (1.0/$opt->{gamma} - 1);
 	}
+	$out;
     };
 
     $me;

diff --git a/t/color.t b/t/color.t
@@ -27,7 +27,8 @@ is $@, '', "t_gamma transform applied OK";
 ok(all(($otriplet * 10000)->rint == ($itriplet**2 * 10000)->rint), "gamma=2 squares the output");
 eval {$otriplet = $itriplet->invert($t);};
 is $@, '', "t_gamma transform inverse applied OK";
-ok(all(($otriplet * 10000)->rint == ($itriplet**0.5 * 10000)->rint), "gamma=2 inverse square-roots the output");
+ok all((($otriplet * 10000)->rint) == (($itriplet**0.5 * 10000)->rint)), "gamma=2 inverse square-roots the output"
+  or diag explain [ unpdl($otriplet), unpdl($itriplet) ];
 
 $itriplet *= pdl(-1,1,1);
 eval {$otriplet = $itriplet->apply($t);};