diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-05-15 16:03:35 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-05-15 16:03:35 +0000 |
| commit | 157a3d9a879b77013095b55ff0a0418b88f31771 (patch) | |
| tree | 9804b14da33dc2fed24bf930de9ce66c79cc2484 /lib/lib.pm | |
| parent | 34e9701933920a1b91b5f5717935652f86850872 (diff) | |
| parent | ebc58f1ae3702319e4a289ddf12b65aa41e620b0 (diff) | |
| download | perl-157a3d9a879b77013095b55ff0a0418b88f31771.tar.gz | |
Integrate win32
p4raw-id: //depot/ansiperl@987
Diffstat (limited to 'lib/lib.pm')
| -rw-r--r-- | lib/lib.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/lib.pm b/lib/lib.pm index 4d32f96355..6e6e15e4ce 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. |