diff options
| author | Tim Conrow <tim@spindrift.srl.caltech.edu> | 2000-08-03 07:29:21 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-07 15:59:43 +0000 |
| commit | 427f4adb1817daf51d5b7762a1ebb87394ca8ac8 (patch) | |
| tree | 7ab3677518b637b7151b226585c2d142b8d641c6 /lib/lib_pm.PL | |
| parent | d57281c6627af64e586faee361d0194bbbc3e41f (diff) | |
| download | perl-427f4adb1817daf51d5b7762a1ebb87394ca8ac8.tar.gz | |
[ID 20000803.006] 'use lib ...' doesn't behave as documented
Message-Id: <200008032129.OAA27898@spindrift.caltech.edu>
p4raw-id: //depot/perl@6538
Diffstat (limited to 'lib/lib_pm.PL')
| -rw-r--r-- | lib/lib_pm.PL | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/lib_pm.PL b/lib/lib_pm.PL index 0d2a73b842..bb02106058 100644 --- a/lib/lib_pm.PL +++ b/lib/lib_pm.PL @@ -23,7 +23,8 @@ 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. my \$archname = "$Config_archname"; my \$ver = "$Config_ver"; @@ -56,6 +57,7 @@ sub import { } # Put a corresponding archlib directory infront of $_ if it # looks like $_ has an archlib directory below it. + unshift(@INC, "$_/$archname") if -d "$_/$archname/auto"; unshift(@INC, "$_/$ver") if -d "$_/$ver"; unshift(@INC, "$_/$ver/$archname") if -d "$_/$ver/$archname"; } @@ -73,6 +75,8 @@ sub unimport { foreach (@_) { ++$names{$_}; ++$names{"$_/$archname"} if -d "$_/$archname/auto"; + ++$names{"$_/$ver"} if -d "$_/$ver"; + ++$names{"$_/$ver/$archname"} if -d "$_/$ver/$archname"; } # Remove ALL instances of each named directory. |