From: Tomas Doran (t0m) <t0m@state51.co.uk>
Date: Thu, 10 Dec 2009 18:27:13 +0000 (+0000)
Subject: And fix
X-Git-Tag: 0.26~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f214b88269f6b81131825e5f3571d35b2609ee3;p=gitmo%2FMooseX-Getopt.git

And fix
---

diff --git a/ChangeLog b/ChangeLog
index 0962414..aa88f85 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 Revision history for Perl extension MooseX-Getopt
 
+  * MooseX::Getopt::Basic
+   - Fix bug with attribute names containing upper case letters.
+
 0.25 Thu. Nov 26 2009
   * MooseX::Getopt
    - Split out the warnings and the exception from Getopt so that they can be
diff --git a/lib/MooseX/Getopt/Basic.pm b/lib/MooseX/Getopt/Basic.pm
index 721fd3f..316b15c 100644
--- a/lib/MooseX/Getopt/Basic.pm
+++ b/lib/MooseX/Getopt/Basic.pm
@@ -143,7 +143,7 @@ sub _traditional_spec {
     foreach my $opt ( @{ $params{options} } ) {
         push @options, $opt->{opt_string};
 
-        my $identifier = lc($opt->{name});
+        my $identifier = $opt->{name};
         $identifier =~ s/\W/_/g; # Getopt::Long does this to all option names
 
         $name_to_init_arg{$identifier} = $opt->{init_arg};