[lucy-commits] svn commit: r1241918 - /incubator/lucy/trunk/perl/t/binding/702-sample.t

[nw...@apache.org]

Author: nwellnhof
Date: Wed Feb  8 14:50:29 2012
New Revision: 1241918

URL: http://svn.apache.org/viewvc?rev=1241918&view=rev
Log:
Make sure to put blib before other paths in test

'use lib' unshifts to @INC. So the blib paths should be used last.

Modified:
    incubator/lucy/trunk/perl/t/binding/702-sample.t

Modified: incubator/lucy/trunk/perl/t/binding/702-sample.t
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/t/binding/702-sample.t?rev=1241918&r1=1241917&r2=1241918&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/t/binding/702-sample.t (original)
+++ incubator/lucy/trunk/perl/t/binding/702-sample.t Wed Feb  8 14:50:29 2012
@@ -27,7 +27,7 @@ my $indexer_pl_orig_path = catfile(qw( s
 # 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 '$_';"} ( $blib_arch, $blib_lib, @INC );
+my @inc_dirs  = map {"use lib '$_';"} ( @INC, $blib_arch, $blib_lib );
 my $use_dirs  = join( "\n", @inc_dirs );
 
 for my $filename (qw( search.cgi indexer.pl )) {