Permalink
Browse files

allow one-char opt names

  • Loading branch information...
1 parent 99eb1fe commit d03ccb31e4b13bc538cc316688d66df13aecd18f @rjbs rjbs committed Aug 21, 2009
Showing with 8 additions and 5 deletions.
  1. +3 −0 Changes
  2. +1 −1 README
  3. +4 −4 lib/Getopt/Long/Descriptive.pm
View
@@ -1,5 +1,8 @@
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
the $opt returned by described_options is now an object with accessors
View
2 README
@@ -2,7 +2,7 @@ Getopt-Long-Descriptive
VERSION
-0.076
+0.077
INSTALLATION
@@ -15,11 +15,11 @@ Getopt::Long::Descriptive - Getopt::Long with usage text
=head1 VERSION
-Version 0.076
+Version 0.077
=cut
-our $VERSION = '0.076';
+our $VERSION = '0.077';
=head1 DESCRIPTION
@@ -494,7 +494,7 @@ sub _mk_only_one {
package
Getopt::Long::Descriptive::OptObjFactory;
- my $VERSION = '0.076';
+ my $VERSION = '0.077';
use Carp ();
@@ -505,7 +505,7 @@ sub _mk_only_one {
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++;

0 comments on commit d03ccb3

Please sign in to comment.