diff options
| author | Brent B. Powers <powers@ml.com> | 1996-10-10 14:22:05 -0400 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-10-10 14:22:05 -0400 |
| commit | 016609bcafdaad73410c6984a3d020d5529e5770 (patch) | |
| tree | 15cb144e94e31f566d5485272bac04d1bba8addc | |
| parent | 381319f7a4cfe77209fc10d28af463f6969064fa (diff) | |
| download | perl-016609bcafdaad73410c6984a3d020d5529e5770.tar.gz | |
Re: patch for lib.pm
Ignore undefined entries.
| -rw-r--r-- | lib/lib.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/lib.pm b/lib/lib.pm index 8748613588..8ca28de3ea 100644 --- a/lib/lib.pm +++ b/lib/lib.pm @@ -11,9 +11,11 @@ my $archname = $Config{'archname'}; sub import { shift; foreach (reverse @_) { - unless (defined $_ and $_ ne '') { + ## Ignore this if not defined. + next unless defined($_); + if ($_ eq '') { require Carp; - Carp::carp("Empty or undefined compile time value given"); # at foo.pl line ... + Carp::carp("Empty compile time value given to use lib"); # at foo.pl line ... } unshift(@INC, $_); # Put a corresponding archlib directory infront of $_ if it |