From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Mon, 3 Jun 1996 00:21:06 +0000 (+0000)
Subject: perl 5.003_01: lib/lib.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af3dad466fe82f837db174449dfa212f6b1726a8;p=p5sagit%2Fp5-mst-13.2.git

perl 5.003_01: lib/lib.pm

Handle empty strings gracefully
Look for architecture-specific directory with or without version
Update reference to FindBin in documentation
---

diff --git a/lib/lib.pm b/lib/lib.pm
index 546ae87..8748613 100644
--- a/lib/lib.pm
+++ b/lib/lib.pm
@@ -11,10 +11,15 @@ my $archname = $Config{'archname'};
 sub import {
     shift;
     foreach (reverse @_) {
+	unless (defined $_ and $_ ne '') {
+	    require Carp;
+	    Carp::carp("Empty or undefined compile time value given"); # at foo.pl line ...
+	}
 	unshift(@INC, $_);
 	# 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, "$_/$archname/$]") if -d "$_/$archname/$]/auto";
+	unshift(@INC, "$_/$archname")    if -d "$_/$archname/auto";
     }
 }
 
@@ -118,7 +123,7 @@ can say
 
 =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