r42408 - in /branches/upstream/libgetopt-long-descriptive-perl/current: Changes META.yml README lib/Getopt/Long/Descriptive.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sat Aug 22 02:18:40 2009
New Revision: 42408

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42408
Log:
[svn-upgrade] Integrating new upstream version, libgetopt-long-descriptive-perl (0.077)

Modified:
    branches/upstream/libgetopt-long-descriptive-perl/current/Changes
    branches/upstream/libgetopt-long-descriptive-perl/current/META.yml
    branches/upstream/libgetopt-long-descriptive-perl/current/README
    branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive.pm

Modified: branches/upstream/libgetopt-long-descriptive-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgetopt-long-descriptive-perl/current/Changes?rev=42408&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/Changes (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/Changes Sat Aug 22 02:18:40 2009
@@ -1,4 +1,7 @@
 Revision history for Getopt-Long-Descriptive
+
+0.077   2009-08-21
+        allow 'f' as an option name; had mistakenly required 2 characters
 
 0.076   2009-08-20
         bundle the accidentally omitted Usage.pm file

Modified: branches/upstream/libgetopt-long-descriptive-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgetopt-long-descriptive-perl/current/META.yml?rev=42408&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/META.yml (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/META.yml Sat Aug 22 02:18:40 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Getopt-Long-Descriptive
-version:            0.076
+version:            0.077
 abstract:           Getopt::Long with usage text
 author:
     - Hans Dieter Pearcey <hdp at cpan.org>

Modified: branches/upstream/libgetopt-long-descriptive-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgetopt-long-descriptive-perl/current/README?rev=42408&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/README (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/README Sat Aug 22 02:18:40 2009
@@ -2,7 +2,7 @@
 
 VERSION
 
-0.076
+0.077
 
 INSTALLATION
 

Modified: branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive.pm?rev=42408&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive.pm (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive.pm Sat Aug 22 02:18:40 2009
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 0.076
+Version 0.077
 
 =cut
 
-our $VERSION = '0.076';
+our $VERSION = '0.077';
 
 =head1 DESCRIPTION
 
@@ -494,7 +494,7 @@
   package
     Getopt::Long::Descriptive::OptObjFactory;
 
-  my $VERSION = '0.076';
+  my $VERSION = '0.077';
 
   use Carp ();
 
@@ -505,7 +505,7 @@
     
     my %given = %{ $arg->{values} };
 
-    my @bad = grep { $_ !~ /^[a-z_]\w+/ } keys %given;
+    my @bad = grep { $_ !~ /^[a-z_]\w*/ } keys %given;
     Carp::confess "perverse option names given: @bad" if @bad;
 
     my $class = "$inv_class\::_::" . $i++;