You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2014/06/19 06:21:08 UTC
[lucy-commits] git commit: refs/heads/master - Preserve @INC ordering.
Repository: lucy
Updated Branches:
refs/heads/master 51e69fd36 -> 4d500c56b
Preserve @INC ordering.
Inject `use lib` directives into generated executable so that @INC
ordering is preserved.
Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/4d500c56
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/4d500c56
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/4d500c56
Branch: refs/heads/master
Commit: 4d500c56b1c0722ee181f85a3a6eed96bddb0c9f
Parents: 51e69fd
Author: Marvin Humphrey <ma...@rectangular.com>
Authored: Wed Jun 18 21:19:30 2014 -0700
Committer: Marvin Humphrey <ma...@rectangular.com>
Committed: Wed Jun 18 21:19:30 2014 -0700
----------------------------------------------------------------------
perl/t/binding/702-sample.t | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/lucy/blob/4d500c56/perl/t/binding/702-sample.t
----------------------------------------------------------------------
diff --git a/perl/t/binding/702-sample.t b/perl/t/binding/702-sample.t
index cfa9e6e..6d1b1e3 100644
--- a/perl/t/binding/702-sample.t
+++ b/perl/t/binding/702-sample.t
@@ -27,8 +27,8 @@ my $indexer_pl_orig_path = catfile(qw( sample indexer.pl ));
# because search.cgi runs with taint mode and environment vars are tainted.
my $blib_arch = catdir(qw( blib arch ));
my $blib_lib = catdir(qw( blib lib ));
-my @inc_dirs = map {"use lib '$_';"} ( @INC, $blib_arch, $blib_lib );
-my $use_dirs = join( "\n", @inc_dirs );
+my @inc_dirs = map { "use lib '$_';" } ( reverse(@INC), $blib_arch, $blib_lib );
+my $use_dirs = join( "\n", @inc_dirs );
for my $filename (qw( search.cgi indexer.pl )) {
my $orig_path = catfile( 'sample', $filename );