Integrate mainline

[perl5.git] / lib / lib_pm.PL

diff --git a/lib/lib_pm.PL b/lib/lib_pm.PL
index 0d2a73b..d778673 100644 (file)
--- a/lib/lib_pm.PL
+++ b/lib/lib_pm.PL
@@ -8,10 +8,30 @@ chdir dirname($0);
 my $file = basename($0, '.PL');
 $file =~ s!_(pm)$!.$1!i;
 
-my $Config_archname = defined($Config{'archname'}) ? $Config{'archname'} : '';
-my $Config_ver = defined($Config{'version'}) ? $Config{'version'} : '';
-my @Config_inc_version_list = defined($Config{'inc_version_list'}) ?
-  reverse split / /, $Config{'inc_version_list'} : ();
+my $useConfig;
+my $Config_archname;
+my $Config_version;
+my $Config_inc_version_list;
+
+# Expand the variables only if explicitly requested because
+# otherwise relocating Perl becomes much harder.
+
+if ($ENV{PERL_BUILD_EXPAND_CONFIG_VARS}) {
+    $useConfig = '';
+    $Config_archname = qq('$Config{archname}');
+    $Config_version  = qq('$Config{version}');
+    my @Config_inc_version_list =
+       reverse split / /, $Config{inc_version_list};
+    $Config_inc_version_list =
+       @Config_inc_version_list ?
+           qq(@Config_inc_version_list) : q(());
+} else {
+    $useConfig = 'use Config;';
+    $Config_archname = q($Config{archname});
+    $Config_version  = q($Config{version});
+    $Config_inc_version_list =
+             q(reverse split / /, $Config{inc_version_list});
+}
  
 open OUT,">$file" or die "Can't create $file: $!";
  
@@ -23,11 +43,14 @@ print "Extracting $file (with variable substitutions)\n";
 print OUT <<"!GROK!THIS!";
 package lib;
 
-use 5.005_64;
+# THIS FILE IS AUTOMATICALLY GENERATED FROM lib_pm.PL.
+# ANY CHANGES TO THIS FILE WILL BE OVERWRITTEN BY THE NEXT PERL BUILD.
+
+$useConfig
 
-my \$archname = "$Config_archname";
-my \$ver = "$Config_ver";
-my \@inc_version_list = qw(@Config_inc_version_list);
+my \$archname         = $Config_archname;
+my \$version          = $Config_version;
+my \@inc_version_list = $Config_inc_version_list;
 
 !GROK!THIS!
 print OUT <<'!NO!SUBS!';
@@ -56,8 +79,9 @@ sub import {
         }
        # Put a corresponding archlib directory infront of $_ if it
        # looks like $_ has an archlib directory below it.
-       unshift(@INC, "$_/$ver") if -d "$_/$ver";
-       unshift(@INC, "$_/$ver/$archname") if -d "$_/$ver/$archname";
+       unshift(@INC, "$_/$archname")          if -d "$_/$archname/auto";
+       unshift(@INC, "$_/$version")           if -d "$_/$version";
+       unshift(@INC, "$_/$version/$archname") if -d "$_/$version/$archname";
     }
 
     # remove trailing duplicates
@@ -72,7 +96,9 @@ sub unimport {
     my %names;
     foreach (@_) {
        ++$names{$_};
-       ++$names{"$_/$archname"} if -d "$_/$archname/auto";
+       ++$names{"$_/$archname"}          if -d "$_/$archname/auto";
+       ++$names{"$_/$version"}           if -d "$_/$version";
+       ++$names{"$_/$version/$archname"} if -d "$_/$version/$archname";
     }
 
     # Remove ALL instances of each named directory.
@@ -145,6 +171,15 @@ can say
 
     @INC = @lib::ORIG_INC;
 
+=head1 CAVEATS
+
+In order to keep lib.pm small and simple, it only works with Unix
+filepaths.  This doesn't mean it only works on Unix, but non-Unix
+users must first translate their file paths to Unix conventions.
+
+    # VMS users wanting to put [.stuff.moo] into 
+    # their @INC would write
+    use lib 'stuff/moo';
 
 =head1 SEE ALSO