Enhance lfs tests: check every seek and sysseek

[perl5.git] / t / lib / io_dir.t

diff --git a/t/lib/io_dir.t b/t/lib/io_dir.t
index 889e35c..11ec8bc 100755 (executable)
--- a/t/lib/io_dir.t
+++ b/t/lib/io_dir.t
@@ -3,7 +3,7 @@
 BEGIN {
     unless(grep /blib/, @INC) {
         chdir 't' if -d 't';
-        @INC = '../lib' if -d '../lib';
+        unshift @INC, '../lib' if -d '../lib';
     }
     require Config; import Config;
     if ($] < 5.00326 || not $Config{'d_readdir'}) {