This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Really get chdir.t working under miniperl
[perl5.git] / t / op / chdir.t
index bb22818..d785285 100644 (file)
@@ -1,17 +1,15 @@
 #!./perl -w
 
 BEGIN {
+    # We really want to know if chdir is working, as the build process will
+    # all go wrong if it is not.  So avoid clearing @INC under miniperl.
+    @INC = () if defined &DynaLoader::boot_DynaLoader;
+
     # We're not going to chdir() into 't' because we don't know if
     # chdir() works!  Instead, we'll hedge our bets and put both
     # possibilities into @INC.
-    @INC = qw(t . lib ../lib);
+    unshift @INC, qw(t . lib ../lib);
     require "test.pl";
-    # Really want to know if chdir is working, as the build process will all go
-    # wrong if it is not.
-    if (is_miniperl() && !eval {require File::Spec::Functions; 1}) {
-       push @INC, qw(dist/PathTools/lib    dist/PathTools
-                  ../dist/PathTools/lib ../dist/PathTools);
-    }
     plan(tests => 48);
 }