[Bps-public-commit] r19020 - Shipwright/trunk/lib/Shipwright/Util

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Apr  1 21:39:25 2009
New Revision: 19020

Modified:
   Shipwright/trunk/lib/Shipwright/Util/CleanINC.pm

Log:
make archlibexp be in front of privlibexp in @INC

Modified: Shipwright/trunk/lib/Shipwright/Util/CleanINC.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Util/CleanINC.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Util/CleanINC.pm	Wed Apr  1 21:39:25 2009
@@ -14,7 +14,8 @@
     my @inc_libs = grep {/inc$/}  split( /:/,($ENV{'PERL5LIB'} ||''));
     # if the libs are explicitly specified, don't pull them from @INC
     my @new_base_inc = grep { !$skip_lib_path{$_}++ } (  @explicit_libs, @INC, at inc_libs);
-    @INC = map { /^(.*)$/ ; $1 }  ( @new_base_inc, $Config::Config{privlibexp}, $Config::Config{archlibexp});
+    @INC = map { /^(.*)$/ ; $1 }  ( @new_base_inc,
+            $Config::Config{archlibexp}, $Config::Config{privlibexp}, );
 }