r67348 - in /branches/upstream/libgetopt-long-descriptive-perl/current: Changes META.yml README lib/Getopt/Long/Descriptive.pm lib/Getopt/Long/Descriptive/Opts.pm lib/Getopt/Long/Descriptive/Usage.pm t/descriptive.t
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Thu Jan 13 13:18:26 UTC 2011
Author: carnil
Date: Thu Jan 13 13:17:43 2011
New Revision: 67348
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67348
Log:
[svn-upgrade] new version libgetopt-long-descriptive-perl (0.089)
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/Opts.pm
branches/upstream/libgetopt-long-descriptive-perl/current/lib/Getopt/Long/Descriptive/Usage.pm
branches/upstream/libgetopt-long-descriptive-perl/current/t/descriptive.t
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=67348&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/Changes (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/Changes Thu Jan 13 13:17:43 2011
@@ -1,4 +1,11 @@
Revision history for Getopt-Long-Descriptive
+
+0.089 2011-01-13
+ bump version to deal with busted PAUSE indexing
+
+0.088 2011-01-12
+ fix infinite loop when long option documentation strings couldn't wrap
+ (HDP)
0.087 2010-11-30
long option documentation strings are now line-wrapped and aligned
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=67348&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/META.yml (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/META.yml Thu Jan 13 13:17:43 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Getopt-Long-Descriptive
-version: 0.087
+version: 0.089
abstract: Getopt::Long, but simpler and more powerful
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=67348&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/README (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/README Thu Jan 13 13:17:43 2011
@@ -2,7 +2,7 @@
VERSION
-0.087
+0.089
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=67348&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 Thu Jan 13 13:17:43 2011
@@ -18,11 +18,11 @@
=head1 VERSION
-Version 0.087
+Version 0.089
=cut
-our $VERSION = '0.087';
+our $VERSION = '0.089';
=head1 SYNOPSIS
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=67348&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 Thu Jan 13 13:17:43 2011
@@ -10,11 +10,11 @@
=head1 VERSION
-Version 0.087
+Version 0.089
=cut
-our $VERSION = '0.087';
+our $VERSION = '0.089';
=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=67348&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 Thu Jan 13 13:17:43 2011
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.087';
+our $VERSION = '0.089';
use List::Util qw(max);
@@ -125,6 +125,7 @@
my @lines;
while (length $desc > $max_length) {
my $idx = rindex( substr( $desc, 0, $max_length ), q{ }, );
+ last unless $idx >= 0;
push @lines, substr($desc, 0, $idx);
substr($desc, 0, $idx + 1) = q{};
}
Modified: branches/upstream/libgetopt-long-descriptive-perl/current/t/descriptive.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgetopt-long-descriptive-perl/current/t/descriptive.t?rev=67348&op=diff
==============================================================================
--- branches/upstream/libgetopt-long-descriptive-perl/current/t/descriptive.t (original)
+++ branches/upstream/libgetopt-long-descriptive-perl/current/t/descriptive.t Thu Jan 13 13:17:43 2011
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 38;
+use Test::More tests => 40;
use_ok("Getopt::Long::Descriptive");
@@ -273,3 +273,20 @@
like($usage->text, $expect, 'long option description is wrapped cleanly');
}
+
+{
+ local @ARGV;
+ my ($opt, $usage) = describe_options(
+ "%c %o",
+ [ foo => "x" x 80 ],
+ );
+ local $@;
+ local $SIG{ALRM} = sub { die "ALRM\n" };
+ eval {
+ alarm(2);
+ like($usage->text, qr/@{["x" x 80]}/, "handled unwrappable description");
+ alarm(0);
+ };
+ is($@, '', "no error in eval");
+}
+
More information about the Pkg-perl-cvs-commits
mailing list