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

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Mon Oct 4 23:58:35 UTC 2010 

Author: jawnsy-guest
Date: Mon Oct  4 23:58:22 2010
New Revision: 63336

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

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/Makefile.PL
    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/Opts.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=63336&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/Changes (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/Changes Mon Oct  4 23:58:22 2010
@@ -1,4 +1,8 @@
 Revision history for Getopt-Long-Descriptive
+
+0.086   2010-09-19
+        fix minimum required version of Sub::Exporter
+        minor tweak to avoid warnings when run with -w
 
 0.085   2010-03-13
         rewrite much of the documentation

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=63336&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/META.yml (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/META.yml Mon Oct  4 23:58:22 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Getopt-Long-Descriptive
-version:            0.085
+version:            0.086
 abstract:           Getopt::Long, but simpler and more powerful
 author:
     - Hans Dieter Pearcey <hdp at cpan.org>
@@ -14,7 +14,7 @@
     Getopt::Long:      2.33
     List::Util:        0
     Params::Validate:  0.74
-    Sub::Exporter:     0
+    Sub::Exporter:     0.972
     Test::More:        0
 no_index:
     directory:

Modified: branches/upstream/libgetopt-long-descriptive-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgetopt-long-descriptive-perl/current/Makefile.PL?rev=63336&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/Makefile.PL (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/Makefile.PL Mon Oct  4 23:58:22 2010
@@ -12,7 +12,7 @@
     'Getopt::Long'     => 2.33, # !-options get --no-X
     'List::Util'       => 0,
     'Params::Validate' => '0.74',
-    'Sub::Exporter'    => 0,
+    'Sub::Exporter'    => 0.972, # generator name with \'name'
     'Test::More'       => 0,
   },
   dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },

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=63336&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/README (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/README Mon Oct  4 23:58:22 2010
@@ -2,7 +2,7 @@
 
 VERSION
 
-0.085
+0.086
 
 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=63336&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 Mon Oct  4 23:58:22 2010
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 package Getopt::Long::Descriptive;
 
 use Carp qw(carp croak);
@@ -17,11 +18,11 @@
 
 =head1 VERSION
 
-Version 0.085
+Version 0.086
 
 =cut
 
-our $VERSION = '0.085';
+our $VERSION = '0.086';
 
 =head1 SYNOPSIS
 
@@ -62,8 +63,8 @@
 
 =head1 FUNCTIONS
 
-Getopt::Long::Descriptive only exports one routine, and exports it by default.
-It is exported with L<Sub::Exporter>.
+Getopt::Long::Descriptive only exports one routine by default:
+C<describe_options>.  All GLD's exports are exported by L<Sub::Exporter>.
 
 =head2 describe_options
 
@@ -83,7 +84,7 @@
 to die with it.  For more methods and options, consults the documentation for
 the Usage class.
 
-=head3 usage_desc
+=head3 $usage_desc
 
 The C<$usage_desc> parameter to C<describe_options> is a C<sprintf>-like string
 that is used in generating the first line of the usage message.  It's a
@@ -104,7 +105,7 @@
 Literal C<%> characters will need to be written as C<%%>, just like with
 C<sprintf>.
 
-=head3 opt_spec
+=head3 @opt_spec
 
 The C<@opt_spec> part of the args to C<describe_options> is used to configure
 option parsing and to produce the usage message.  Each entry in the list is an
@@ -220,7 +221,7 @@
 
 =back
 
-=head3 arg
+=head3 %arg
 
 The C<%arg> to C<describe_options> is optional.  If the last parameter is a
 hashref, it contains extra arguments to modify the way C<describe_options>
@@ -256,7 +257,7 @@
 }
 
 use Sub::Exporter::Util ();
-use Sub::Exporter -setup => {
+use Sub::Exporter 0.972 -setup => {
   exports => [
     describe_options => \'_build_describe_options',
     q(prog_name),
@@ -285,7 +286,9 @@
     spec       => $_->[0] || '',
     desc       => @$_ > 1 ? $_->[1] : 'spacer',
     constraint => $_->[2] || {},
-    name       => _munge((split /[:=|!+]/, $_->[0] || '')[0]),
+
+    # if @$_ is 0 then we got [], a spacer
+    name       => @$_ ? _munge((split /[:=|!+]/, $_->[0] || '')[0]) : '',
   )} } @_;
 }
     

Modified: branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive/Opts.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive/Opts.pm?rev=63336&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive/Opts.pm (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive/Opts.pm Mon Oct  4 23:58:22 2010
@@ -10,11 +10,11 @@
 
 =head1 VERSION
 
-Version 0.085
+Version 0.086
 
 =cut
 
-our $VERSION = '0.085';
+our $VERSION = '0.086';
 
 =head1 DESCRIPTION
 

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=63336&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 Mon Oct  4 23:58:22 2010
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.085';
+our $VERSION = '0.086';
 
 use List::Util qw(max);

More information about the Pkg-perl-cvs-commits mailing list