r39308 - in /trunk/libtext-simpletable-perl: Changes META.yml debian/changelog 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:07:43 UTC 2009
Author: nhandler-guest
Date: Sat Jul 4 03:07:36 2009
New Revision: 39308
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39308
Log:
New upstream release
Modified:
trunk/libtext-simpletable-perl/Changes
trunk/libtext-simpletable-perl/META.yml
trunk/libtext-simpletable-perl/debian/changelog
trunk/libtext-simpletable-perl/lib/Text/SimpleTable.pm
trunk/libtext-simpletable-perl/t/04tables.t
Modified: trunk/libtext-simpletable-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-simpletable-perl/Changes?rev=39308&op=diff
==============================================================================
--- trunk/libtext-simpletable-perl/Changes (original)
+++ trunk/libtext-simpletable-perl/Changes Sat Jul 4 03:07:36 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: trunk/libtext-simpletable-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-simpletable-perl/META.yml?rev=39308&op=diff
==============================================================================
--- trunk/libtext-simpletable-perl/META.yml (original)
+++ trunk/libtext-simpletable-perl/META.yml Sat Jul 4 03:07:36 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Text-SimpleTable
-version: 1.1
+version: 1.2
abstract: ~
license: ~
author:
Modified: trunk/libtext-simpletable-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-simpletable-perl/debian/changelog?rev=39308&op=diff
==============================================================================
--- trunk/libtext-simpletable-perl/debian/changelog (original)
+++ trunk/libtext-simpletable-perl/debian/changelog Sat Jul 4 03:07:36 2009
@@ -1,3 +1,9 @@
+libtext-simpletable-perl (1.2-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Nathan Handler <nhandler at ubuntu.com> Sat, 04 Jul 2009 03:07:22 +0000
+
libtext-simpletable-perl (1.1-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libtext-simpletable-perl/lib/Text/SimpleTable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-simpletable-perl/lib/Text/SimpleTable.pm?rev=39308&op=diff
==============================================================================
--- trunk/libtext-simpletable-perl/lib/Text/SimpleTable.pm (original)
+++ trunk/libtext-simpletable-perl/lib/Text/SimpleTable.pm Sat Jul 4 03:07:36 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: trunk/libtext-simpletable-perl/t/04tables.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-simpletable-perl/t/04tables.t?rev=39308&op=diff
==============================================================================
--- trunk/libtext-simpletable-perl/t/04tables.t (original)
+++ trunk/libtext-simpletable-perl/t/04tables.t Sat Jul 4 03:07:36 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