support native integers, pack("L_",...) etc. (via private mail)

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

diff --git a/t/lib/dumper.t b/t/lib/dumper.t
index e3d339a..96c07ea 100755 (executable)
--- a/t/lib/dumper.t
+++ b/t/lib/dumper.t
@@ -5,7 +5,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib';
+    unshift @INC, '../lib' if -d '../lib';
 }
 
 use Data::Dumper;
@@ -39,7 +39,7 @@ if (defined &Data::Dumper::Dumpxs) {
 }
 else {
   print "### XS extensions not loaded, will NOT run XS tests\n";
-  $TMAX = 86; $XS = 0;
+  $TMAX = 81; $XS = 0;
 }
 
 print "1..$TMAX\n";