From 7f1eeb9406015c9472a52da27518397b1959eb4d Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Tue, 14 Jan 2014 16:53:40 +1100
Subject: [PATCH] [perl #116971] avoid feeding manisort a bad @INC

the C<< use TestInit qw(T) >> in manifest.t both changes to the
build tree *and* initializes $ENV{PERL5LIB} to "lib", so there's
no need fo runperl() to supply (an incorrect) -I.. when running
manisort.
---
 t/porting/manifest.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/porting/manifest.t b/t/porting/manifest.t
index b8c63c5..c367fc7 100644
--- a/t/porting/manifest.t
+++ b/t/porting/manifest.t
@@ -71,7 +71,8 @@ SKIP: {
 
     my $result = runperl('progfile' => 'Porting/manisort',
                          'args'     => [ '-c', $manifest ],
-                         'stderr'   => 1);
+                         'stderr'   => 1,
+                         'nolib'    => 1 );
 
     like($result, qr/is sorted properly/, 'MANIFEST sorted properly');
 }
-- 
2.7.4