From: Chris Nehren <apeiron@cpan.org>
Date: Fri, 13 May 2011 14:00:36 +0000 (-0400)
Subject: rename %_env_list_value_defaults to %ENV_LIST_VALUE_DEFAULTS
X-Git-Tag: 1.008008~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f878d9c10aac3774831bb1d7d7d206dc79e645d7;p=p5sagit%2Flocal-lib.git

rename %_env_list_value_defaults to %ENV_LIST_VALUE_DEFAULTS
---

diff --git a/lib/local/lib.pm b/lib/local/lib.pm
index 270e660..2e0ca1b 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};