[Bps-public-commit] Config-GitLike branch, master, updated. 1.04-4-g9c46579

[Christine Spang]

The branch, master has been updated
       via  9c46579dee50ea26448da3aae5e9dc3c0cf677d5 (commit)
      from  0b2012c0787c1e1bcec294f5e67550bfcebe1c8e (commit)

Summary of changes:
 lib/Config/GitLike.pm |   10 +++++++---
 1 files changed, 7 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 9c46579dee50ea26448da3aae5e9dc3c0cf677d5
Author: Christine Spang <spang at mit.edu>
Date:   Thu Jan 6 12:40:44 2011 +0000

    silence lc warnings under perl 5.12
    
    patch from iarnell at gmail.com++, RT #58865

diff --git a/lib/Config/GitLike.pm b/lib/Config/GitLike.pm
index 25d5bec..cbc5e38 100644
--- a/lib/Config/GitLike.pm
+++ b/lib/Config/GitLike.pm
@@ -714,9 +714,13 @@ sub group_set {
         my %args = %{$args_hash};
 
         my ($section, $subsection, $name) = _split_key($args{key});
-        my $key = join( '.',
-            grep { defined } (lc $section, $subsection, lc $name),
-        );
+        my $key;
+        {
+            no warnings 'uninitialized';
+            $key = join( '.',
+                grep { defined } (lc $section, $subsection, lc $name),
+            );
+        }
 
         $args{multiple} = $self->is_multiple($key)
             unless defined $args{multiple};

-----------------------------------------------------------------------