From b6e1fb883d303e0b054ab2f7475e97020bcfa201 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Tue, 14 Jan 2014 15:46:27 +1100
Subject: [PATCH] [perl #116971] avoid feeding utils run by utils.t a bad @INC

the C<< use TestInit qw(T) >> both changes to the build tree root
*and* initializes $ENV{PERL5LIB} to "lib", so there's no need for
runperl() to supply -I.. when testing each tool.
---
 t/porting/utils.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/porting/utils.t b/t/porting/utils.t
index 25fb802..7ff13cf 100644
--- a/t/porting/utils.t
+++ b/t/porting/utils.t
@@ -85,7 +85,7 @@ foreach my $victim (@victims) {
         skip ("$victim uses $excuses{$victim}, so can't test with just core modules")
             if $excuses{$victim};
 
-        my $got = runperl(switches => ['-c'], progfile => $victim, stderr => 1);
+        my $got = runperl(switches => ['-c'], progfile => $victim, stderr => 1, nolib => 1);
         is($got, "$victim syntax OK\n", "$victim compiles");
     }
 }
-- 
2.7.4