Make perlivp ignore PERL5LIB and current directory
authorDavid Golden <dagolden@cpan.org>
Wed, 20 Jul 2011 22:14:03 +0000 (18:14 -0400)
committerDavid Golden <dagolden@cpan.org>
Wed, 20 Jul 2011 22:14:03 +0000 (18:14 -0400)
utils/perlivp.PL

index f5963e8..91a2e4f 100644 (file)
@@ -135,6 +135,14 @@ else {
 }
 $tests_total++;
 
+# We have the right perl and version, so now reset @INC so we ignore
+# PERL5LIB and '.'
+{
+    local $ENV{PERL5LIB};
+    my $perl_V = qx($perlpath -V);
+    $perl_V =~ s{.*\@INC:\n}{}ms;
+    @INC = grep { length && $_ ne '.' } split ' ', $perl_V;
+}
 
 print "## Checking roots of the Perl library directory tree via variable `\@INC'.\n" if $opt{'p'};