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

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

Author: carnil-guest
Date: Fri Nov 27 22:54:07 2009
New Revision: 47859

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

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
    branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive/Usage.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=47859&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/Changes (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/Changes Fri Nov 27 22:54:07 2009
@@ -1,4 +1,12 @@
 Revision history for Getopt-Long-Descriptive
+
+0.081   2009-11-27
+        \%opt will not contain entries for opts that were not given
+        (this reverts 0.079 and 0.080's new behavior of undef entries)
+
+0.080   2009-11-27
+        fix option naming to ignore "+" used to mark cumulative options
+        fix direct calls to Getopt::Long::Descriptive::describe_options
 
 0.079   2009-11-26 Happy Thanksgiving!
         improve the "opt as object" facility to have all opts as methods

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=47859&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/META.yml (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/META.yml Fri Nov 27 22:54:07 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Getopt-Long-Descriptive
-version:            0.079
+version:            0.081
 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=47859&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/README (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/README Fri Nov 27 22:54:07 2009
@@ -2,7 +2,7 @@
 
 VERSION
 
-0.079
+0.081
 
 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=47859&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 Fri Nov 27 22:54:07 2009
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 0.079
+Version 0.081
 
 =cut
 
-our $VERSION = '0.079';
+our $VERSION = '0.081';
 
 =head1 DESCRIPTION
 
@@ -246,7 +246,7 @@
     spec       => $_->[0] || '',
     desc       => @$_ > 1 ? $_->[1] : 'spacer',
     constraint => $_->[2] || {},
-    name       => _munge((split /[:=|!]/, $_->[0] || '')[0]),
+    name       => _munge((split /[:=|!+]/, $_->[0] || '')[0]),
   )} } @_;
 }
     
@@ -267,7 +267,7 @@
 # without importing.  Sucks to them!  -- rjbs, 2009-08-21
 sub describe_options {
   my $sub = __PACKAGE__->_build_describe_options(describe_options => {} => {});
-  $sub->();
+  $sub->(@_);
 }
 
 sub usage_class { 'Getopt::Long::Descriptive::Usage' }
@@ -535,7 +535,18 @@
   my ($gld_class, $arg) = @_;
   
   my $class = $gld_class->_class_for_opt($arg);
-  bless { %{ $arg->{values} } } => $class;
+
+  # This is stupid, but the traditional behavior was that if --foo was not
+  # given, there is no $opt->{foo}; it started to show up when we "needed" all
+  # the keys to generate a class, but was undef; this wasn't a problem, but
+  # broke tests of things that were relying on not-exists like tests of %$opt
+  # contents or MooseX::Getopt which wanted to use things as args for new --
+  # undef would not pass an Int TC.  Easier to just do this. -- rjbs,
+  # 2009-11-27
+  my $obj = bless { %{ $arg->{values} } } => $class;
+  delete $obj->{$_} for grep { ! defined $obj->{$_} } keys %$obj;
+
+  return $obj;
 }
 
 =head1 CUSTOMIZING

Modified: branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive/Usage.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive/Usage.pm?rev=47859&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive/Usage.pm (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive/Usage.pm Fri Nov 27 22:54:07 2009
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.079';
+our $VERSION = '0.081';
 
 use List::Util qw(max);