r39306 - in /branches/upstream/libtext-simpletable-perl/current: Changes META.yml lib/Text/SimpleTable.pm t/04tables.t
nhandler-guest at users.alioth.debian.org
nhandler-guest at users.alioth.debian.org
Sat Jul 4 03:00:06 UTC 2009
Author: nhandler-guest
Date: Sat Jul 4 02:59:59 2009
New Revision: 39306
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39306
Log:
[svn-upgrade] Integrating new upstream version, libtext-simpletable-perl (1.2)
Modified:
branches/upstream/libtext-simpletable-perl/current/Changes
branches/upstream/libtext-simpletable-perl/current/META.yml
branches/upstream/libtext-simpletable-perl/current/lib/Text/SimpleTable.pm
branches/upstream/libtext-simpletable-perl/current/t/04tables.t
Modified: branches/upstream/libtext-simpletable-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-simpletable-perl/current/Changes?rev=39306&op=diff
==============================================================================
--- branches/upstream/libtext-simpletable-perl/current/Changes (original)
+++ branches/upstream/libtext-simpletable-perl/current/Changes Sat Jul 4 02:59:59 2009
@@ -1,4 +1,7 @@
Tis file documents the revision history for Perl extension Text::SimpleTable.
+
+1.2 2009-07-02 00:00:00
+ - Fixed infinite loop bug.
1.1 2009-07-02 00:00:00
- Added hr method. (bricas)
Modified: branches/upstream/libtext-simpletable-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-simpletable-perl/current/META.yml?rev=39306&op=diff
==============================================================================
--- branches/upstream/libtext-simpletable-perl/current/META.yml (original)
+++ branches/upstream/libtext-simpletable-perl/current/META.yml Sat Jul 4 02:59:59 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Text-SimpleTable
-version: 1.1
+version: 1.2
abstract: ~
license: ~
author:
Modified: branches/upstream/libtext-simpletable-perl/current/lib/Text/SimpleTable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-simpletable-perl/current/lib/Text/SimpleTable.pm?rev=39306&op=diff
==============================================================================
--- branches/upstream/libtext-simpletable-perl/current/lib/Text/SimpleTable.pm (original)
+++ branches/upstream/libtext-simpletable-perl/current/lib/Text/SimpleTable.pm Sat Jul 4 02:59:59 2009
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '1.1';
+our $VERSION = '1.2';
# Top
our $TOP_LEFT = '.-';
@@ -51,6 +51,9 @@
$name = $arg->[1];
}
else { $width = $arg }
+
+ # Fix size
+ $width = 2 if $width < 2;
# Wrap
my $title = $name ? $self->_wrap($name, $width) : [];
Modified: branches/upstream/libtext-simpletable-perl/current/t/04tables.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-simpletable-perl/current/t/04tables.t?rev=39306&op=diff
==============================================================================
--- branches/upstream/libtext-simpletable-perl/current/t/04tables.t (original)
+++ branches/upstream/libtext-simpletable-perl/current/t/04tables.t Sat Jul 4 02:59:59 2009
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 5;
+use Test::More tests => 6;
use_ok('Text::SimpleTable');
@@ -72,3 +72,24 @@
| orks! |
'-------'
EOF
+
+# Bad width
+my $t5 = Text::SimpleTable->new(1);
+$t5->row('Works!');
+$t5->hr;
+$t5->row('Works!');
+is($t5->draw, <<EOF);
+.----.
+| W- |
+| o- |
+| r- |
+| k- |
+| s! |
++----+
+| W- |
+| o- |
+| r- |
+| k- |
+| s! |
+'----'
+EOF
More information about the Pkg-perl-cvs-commits
mailing list