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]

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