r47861 - in /trunk/libgetopt-long-descriptive-perl: Changes META.yml README debian/changelog debian/control lib/Getopt/Long/Descriptive.pm lib/Getopt/Long/Descriptive/Usage.pm
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Fri Nov 27 22:56:29 UTC 2009
Author: carnil-guest
Date: Fri Nov 27 22:56:24 2009
New Revision: 47861
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47861
Log:
* New upstream release
* debian/control: Add myself to Uploaders.
Modified:
trunk/libgetopt-long-descriptive-perl/Changes
trunk/libgetopt-long-descriptive-perl/META.yml
trunk/libgetopt-long-descriptive-perl/README
trunk/libgetopt-long-descriptive-perl/debian/changelog
trunk/libgetopt-long-descriptive-perl/debian/control
trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive.pm
trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Usage.pm
Modified: trunk/libgetopt-long-descriptive-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/Changes?rev=47861&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/Changes (original)
+++ trunk/libgetopt-long-descriptive-perl/Changes Fri Nov 27 22:56:24 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: trunk/libgetopt-long-descriptive-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/META.yml?rev=47861&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/META.yml (original)
+++ trunk/libgetopt-long-descriptive-perl/META.yml Fri Nov 27 22:56:24 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: trunk/libgetopt-long-descriptive-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/README?rev=47861&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/README (original)
+++ trunk/libgetopt-long-descriptive-perl/README Fri Nov 27 22:56:24 2009
@@ -2,7 +2,7 @@
VERSION
-0.079
+0.081
INSTALLATION
Modified: trunk/libgetopt-long-descriptive-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/debian/changelog?rev=47861&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/debian/changelog (original)
+++ trunk/libgetopt-long-descriptive-perl/debian/changelog Fri Nov 27 22:56:24 2009
@@ -1,4 +1,4 @@
-libgetopt-long-descriptive-perl (0.079-1) unstable; urgency=low
+libgetopt-long-descriptive-perl (0.081-1) UNRELEASED; urgency=low
[ Jonathan Yu ]
* New upstream release
@@ -6,7 +6,11 @@
[ Ryan Niebur ]
* Update jawnsy's email address
- -- Jonathan Yu <jawnsy at cpan.org> Thu, 26 Nov 2009 19:01:53 -0500
+ [ Salvatore Bonaccorso ]
+ * New upstream release
+ * debian/control: Add myself to Uploaders.
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Fri, 27 Nov 2009 23:55:49 +0100
libgetopt-long-descriptive-perl (0.077-1) unstable; urgency=low
Modified: trunk/libgetopt-long-descriptive-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/debian/control?rev=47861&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/debian/control (original)
+++ trunk/libgetopt-long-descriptive-perl/debian/control Fri Nov 27 22:56:24 2009
@@ -5,7 +5,8 @@
Build-Depends-Indep: perl, libsub-exporter-perl, libtest-pod-coverage-perl,
libtest-pod-perl, libio-stringy-perl, libparams-validate-perl
Uploaders: Krzysztof Krzyżaniak (eloy) <eloy at debian.org>,
- gregor herrmann <gregoa at debian.org>, Jonathan Yu <jawnsy at cpan.org>
+ gregor herrmann <gregoa at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
+ Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/Getopt-Long-Descriptive/
Modified: trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive.pm?rev=47861&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive.pm (original)
+++ trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive.pm Fri Nov 27 22:56:24 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: trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Usage.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Usage.pm?rev=47861&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Usage.pm (original)
+++ trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Usage.pm Fri Nov 27 22:56:24 2009
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.079';
+our $VERSION = '0.081';
use List::Util qw(max);
More information about the Pkg-perl-cvs-commits
mailing list