package lib;
-@ORIG_INC = (); # (avoid typo warning)
+use vars qw(@ORIG_INC);
+use Config;
+
+my $archname = $Config{'archname'};
+
@ORIG_INC = @INC; # take a handy copy of 'original' value
sub import {
shift;
- unshift(@INC, @_);
+ foreach (reverse @_) {
+ ## Ignore this if not defined.
+ next unless defined($_);
+ if ($_ eq '') {
+ require Carp;
+ Carp::carp("Empty compile time value given to use lib");
+ # at foo.pl line ...
+ }
+ if (-e && ! -d _) {
+ require Carp;
+ Carp::carp("Parameter to use lib must be directory, not file");
+ }
+ unshift(@INC, $_);
+ # Put a corresponding archlib directory infront of $_ if it
+ # looks like $_ has an archlib directory below it.
+ if (-d "$_/$archname") {
+ unshift(@INC, "$_/$archname") if -d "$_/$archname/auto";
+ unshift(@INC, "$_/$archname/$]") if -d "$_/$archname/$]/auto";
+ }
+ }
}
my $mode = shift if $_[0] =~ m/^:[A-Z]+/;
my %names;
- foreach(@_) { ++$names{$_} };
+ foreach(@_) {
+ ++$names{$_};
+ ++$names{"$_/$archname"} if -d "$_/$archname/auto";
+ }
if ($mode and $mode eq ':ALL') {
# Remove ALL instances of each named directory.
}
}
+1;
__END__
=head1 NAME
that later C<use> or C<require> statements will find modules which are
not located on perl's default search path.
-
=head2 ADDING DIRECTORIES TO @INC
The parameters to C<use lib> are added to the start of the perl search
use lib LIST;
-is the same as saying
+is I<almost> the same as saying
BEGIN { unshift(@INC, LIST) }
+For each directory in LIST (called $dir here) the lib module also
+checks to see if a directory called $dir/$archname/auto exists.
+If so the $dir/$archname directory is assumed to be a corresponding
+architecture specific directory and is added to @INC in front of $dir.
+
+If LIST includes both $dir and $dir/$archname then $dir/$archname will
+be added to @INC twice (if $dir/$archname/auto exists).
=head2 DELETING DIRECTORIES FROM @INC
no lib qw(:ALL .);
+For each directory in LIST (called $dir here) the lib module also
+checks to see if a directory called $dir/$archname/auto exists.
+If so the $dir/$archname directory is assumed to be a corresponding
+architecture specific directory and is also deleted from @INC.
+
+If LIST includes both $dir and $dir/$archname then $dir/$archname will
+be deleted from @INC twice (if $dir/$archname/auto exists).
=head2 RESTORING ORIGINAL @INC
When the lib module is first loaded it records the current value of @INC
in an array C<@lib::ORIG_INC>. To restore @INC to that value you
-can say either
+can say
@INC = @lib::ORIG_INC;
-or
-
- no lib @INC;
- use lib @lib::ORIG_INC;
=head1 SEE ALSO
-AddINC - optional module which deals with paths relative to the source file.
+FindBin - optional module which deals with paths relative to the source file.
=head1 AUTHOR