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