r67350 - in /trunk/libgetopt-long-descriptive-perl: Changes META.yml README debian/changelog 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:35:11 UTC 2011
Author: carnil
Date: Thu Jan 13 13:35:01 2011
New Revision: 67350
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67350
Log:
New upstream release
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/lib/Getopt/Long/Descriptive.pm
trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Opts.pm
trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Usage.pm
trunk/libgetopt-long-descriptive-perl/t/descriptive.t
Modified: trunk/libgetopt-long-descriptive-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/Changes?rev=67350&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/Changes (original)
+++ trunk/libgetopt-long-descriptive-perl/Changes Thu Jan 13 13:35:01 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: trunk/libgetopt-long-descriptive-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/META.yml?rev=67350&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/META.yml (original)
+++ trunk/libgetopt-long-descriptive-perl/META.yml Thu Jan 13 13:35:01 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: trunk/libgetopt-long-descriptive-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/README?rev=67350&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/README (original)
+++ trunk/libgetopt-long-descriptive-perl/README Thu Jan 13 13:35:01 2011
@@ -2,7 +2,7 @@
VERSION
-0.087
+0.089
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=67350&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/debian/changelog (original)
+++ trunk/libgetopt-long-descriptive-perl/debian/changelog Thu Jan 13 13:35:01 2011
@@ -1,3 +1,9 @@
+libgetopt-long-descriptive-perl (0.089-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Salvatore Bonaccorso <carnil at debian.org> Thu, 13 Jan 2011 14:19:09 +0100
+
libgetopt-long-descriptive-perl (0.087-1) unstable; urgency=low
* New upstream release
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=67350&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive.pm (original)
+++ trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive.pm Thu Jan 13 13:35:01 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: trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Opts.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Opts.pm?rev=67350&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Opts.pm (original)
+++ trunk/libgetopt-long-descriptive-perl/lib/Getopt/Long/Descriptive/Opts.pm Thu Jan 13 13:35:01 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: 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=67350&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 Thu Jan 13 13:35:01 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: trunk/libgetopt-long-descriptive-perl/t/descriptive.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-long-descriptive-perl/t/descriptive.t?rev=67350&op=diff
==============================================================================
--- trunk/libgetopt-long-descriptive-perl/t/descriptive.t (original)
+++ trunk/libgetopt-long-descriptive-perl/t/descriptive.t Thu Jan 13 13:35:01 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