X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Flocal%2Flib.pm;h=d663bb4eb8c8776a58436229d54e0c97ad0f43d3;hb=163f162c011a79860caafe94403857ad08200825;hp=d56254a436f82a0d23ab89f7d1d9cb1f81736371;hpb=c50d554b4222fbc7bfa137cc9653389b4303ccb9;p=p5sagit%2Flocal-lib.git diff --git a/lib/local/lib.pm b/lib/local/lib.pm index d56254a..d663bb4 100644 --- a/lib/local/lib.pm +++ b/lib/local/lib.pm @@ -10,7 +10,7 @@ use File::Spec (); use File::Path (); use Config; -our $VERSION = '1.008008'; # 1.8.8 +our $VERSION = '1.008010'; # 1.8.10 our @KNOWN_FLAGS = qw(--self-contained --deactivate --deactivate-all); @@ -405,7 +405,7 @@ sub _env_list_value { && (!$options{exists} || -e $_)) } map { if (ref $_ eq 'SCALAR' && $options{interpolate} == INTERPOLATE_ENV) { - exists $ENV{${$_}} ? (split /\Q$Config{path_sep}/, $ENV{${$_}}) : () + defined $ENV{${$_}} ? (split /\Q$Config{path_sep}/, $ENV{${$_}}) : () } else { $_ } @@ -1024,6 +1024,14 @@ On Win32 systems, C is also examined. =back +=head1 SEE ALSO + +=over 4 + +=item * L + +=back + =head1 SUPPORT IRC: