- ok(Scalar::Vec::Util::veq_pp($v1 => $s1, $v2 => $s2, $l), "veq_pp $s1, $s2, $l");
- ok(!Scalar::Vec::Util::veq_pp($v1 => $s1 - 1, $v2 => $s2, $l), 'not veq_pp ' . ($s1 - 1) . ", $s2, $l") if $l > 0;
- ok(!Scalar::Vec::Util::veq_pp($v1 => $s1 + 1, $v2 => $s2, $l), 'not veq_pp ' . ($s1 + 1) . ", $s2, $l") if $l > 0;
+ ok Scalar::Vec::Util::veq_pp($v1 => $s1, $v2 => $s2, $l),
+ "veq_pp $s1, $s2, $l";
+ if ($l > 0) {
+ ok !Scalar::Vec::Util::veq_pp($v1 => $s1 - 1, $v2 => $s2, $l),
+ 'not veq_pp ' . ($s1-1) . ", $s2, $l";
+ ok !Scalar::Vec::Util::veq_pp($v1 => $s1 + 1, $v2 => $s2, $l),
+ 'not veq_pp ' . ($s1+1) . ", $s2, $l";
+ }