X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Flib.pm;h=6e6e15e4ce95fb525e8f69818abe6c9d35b23ad9;hb=4499d6b9d14594604210bc28005c5e4ab2e49947;hp=4d32f963551078cc9b3f1a0b3f3f8d558fdb06ca;hpb=774d564bb7dd1ed64ca0d7e534aa67e93f991f02;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/lib.pm b/lib/lib.pm
index 4d32f96..6e6e15e 100644
--- a/lib/lib.pm
+++ b/lib/lib.pm
@@ -18,6 +18,10 @@ sub import {
 	    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.