Make tests succeed on OS/2

[p5sagit/p5-mst-13.2.git] / t / lib / opcode.t

diff --git a/t/lib/opcode.t b/t/lib/opcode.t
old mode 100644 (file)
new mode 100755 (executable)
index e171aca..a785fce
--- a/t/lib/opcode.t
+++ b/t/lib/opcode.t
@@ -77,7 +77,7 @@ print @o2 == opcodes-3 ? "ok $t\n" : "not ok $t\n"; $t++;
 
 die $t unless $t == 16;
 print opmask() eq empty_opset() ? "ok $t\n" : "not ok $t\n"; $t++;     # work
-print length opmask() == int(opcodes()/8)+1 ? "ok $t\n" : "not ok $t\n"; $t++;
+print length opmask() == int((opcodes()+7)/8) ? "ok $t\n" : "not ok $t\n"; $t++;
 
 # --- verify_opset