From: Tony Cook <tony@develop-help.com>
Date: Tue, 14 Jan 2014 05:53:40 +0000 (+1100)
Subject: [perl #116971] avoid feeding manisort a bad @INC
X-Git-Tag: upstream/5.20.0~787
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=7f1eeb9406015c9472a52da27518397b1959eb4d;p=platform%2Fupstream%2Fperl.git

[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.
---

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');
 }