Author: spadkins
Date: Tue Mar 16 18:00:34 2010
New Revision: 13864
Modified:
p5ee/trunk/App-Options/lib/App/Options.pm
Log:
modified the default perlinc to use libdir/perl5, then libdir/perl, and
prefix/share/perl if it exists
Modified: p5ee/trunk/App-Options/lib/App/Options.pm
==============================================================================
--- p5ee/trunk/App-Options/lib/App/Options.pm (original)
+++ p5ee/trunk/App-Options/lib/App/Options.pm Tue Mar 16 18:00:34 2010
@@ -768,8 +768,18 @@
if ($^V) {
my $perlversion = sprintf("%vd", $^V);
unshift(@INC, $libdir);
- unshift(@INC, "$libdir/perl5/site_perl/$perlversion"); #
site_perl goes first!
- unshift(@INC, "$libdir/perl5/$perlversion");
+ if (-d "$libdir/perl5") {
+ unshift(@INC, "$libdir/perl5/site_perl/$perlversion"); #
site_perl goes first!
+ unshift(@INC, "$libdir/perl5/$perlversion");
+ }
+ elsif (-d "$libdir/perl") {
+ unshift(@INC, "$libdir/perl/site_perl/$perlversion"); #
site_perl goes first!
+ unshift(@INC, "$libdir/perl/$perlversion");
+ }
+ if (-d "$prefix/share/perl") {
+ unshift(@INC,
"$prefix/share/perl/site_perl/$perlversion"); # site_perl goes first!
+ unshift(@INC, "$prefix/share/perl/$perlversion");
+ }
}
}
if ($debug_options >= 2) {
