Integrate from mainperl.

[p5sagit/p5-mst-13.2.git] / t / op / tiearray.t

diff --git a/t/op/tiearray.t b/t/op/tiearray.t
index 9e709bc..25fda3f 100755 (executable)
--- a/t/op/tiearray.t
+++ b/t/op/tiearray.t
@@ -3,7 +3,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 my %seen;
@@ -101,7 +101,7 @@ sub SPLICE
 
 package main;
 
-print "1..30\n";                   
+print "1..31\n";                   
 my $test = 1;
 
 {my @ary;