[Bps-public-commit] r18382 - in Shipwright/trunk: share/bin

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Feb 13 21:11:56 2009
New Revision: 18382

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/share/bin/shipwright-builder

Log:
 r19837 at sunnavys-mb:  sunnavy | 2009-02-14 10:09:42 +0800
 make a clean @INC when build


Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Fri Feb 13 21:11:56 2009
@@ -13,6 +13,14 @@
 use inc::YAML::Tiny;
 use Carp qw/confess/;
 
+BEGIN {
+    @INC = (
+        $Config::Config{privlibexp},
+        $Config::Config{archlibexp},
+        split ':', $ENV{PERL5LIB}
+    );
+}
+
 my $build_base = getcwd;
 
 my %args;