allow AV/HV dereferences on pseudohashes ($ph->{foo}[1], etc.)

[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..f83a689
--- a/t/lib/opcode.t
+++ b/t/lib/opcode.t
@@ -4,7 +4,7 @@ $|=1;
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
         print "1..0\n";
@@ -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