X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Flocal%2Flib.pm;h=173ae290c5a88f5665650190312587aa95095654;hb=ea711ef61b8b2eced7385de37f552a9dadedb9a1;hp=56e73df96028a53e9cf33c9fd669ea53b1571ea1;hpb=967827c14eddc53f53b0cde68bcd11cbe6e84bdb;p=p5sagit%2Flocal-lib.git

diff --git a/lib/local/lib.pm b/lib/local/lib.pm
index 56e73df..173ae29 100644
--- a/lib/local/lib.pm
+++ b/lib/local/lib.pm
@@ -369,7 +369,7 @@ sub build_environment_vars_for {
 # - exists: paths are included only if they exist (default: interpolate == INTERPOLATE_ENV)
 # - filter: function to apply to each path do decide if it must be included
 # - empty: the value to return in the case of empty value
-my %_env_list_value_defaults = (
+my %ENV_LIST_VALUE_DEFAULTS = (
     interpolate => INTERPOLATE_ENV,
     exists => undef,
     filter => sub { 1 },
@@ -378,8 +378,8 @@ my %_env_list_value_defaults = (
 sub _env_list_value(%@) {
   my $options = shift;
   die(sprintf "unknown option '$_' at %s line %u\n", (caller)[1..2])
-    for grep { !exists $_env_list_value_defaults{$_} } keys %$options;
-  my %options = (%_env_list_value_defaults, %{ $options });
+    for grep { !exists $ENV_LIST_VALUE_DEFAULTS{$_} } keys %$options;
+  my %options = (%ENV_LIST_VALUE_DEFAULTS, %{ $options });
   $options{exists} = $options{interpolate} == INTERPOLATE_ENV
     unless defined $options{exists};