diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index dc9e8eaf33..b5b2da1b47 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1090,8 +1090,8 @@ our %Modules = ( }, 'Term::Table' => { - 'DISTRIBUTION' => 'EXODIST/Term-Table-0.027.tar.gz', - 'SYNCINFO' => 'jkeenan on Sat Nov 15 21:20:44 2025', + 'DISTRIBUTION' => 'EXODIST/Term-Table-0.028.tar.gz', + 'SYNCINFO' => 'jkeenan on Fri Nov 28 08:45:03 2025', 'FILES' => q[cpan/Term-Table], 'EXCLUDED' => [ qw( appveyor.yml ), diff --git a/cpan/Term-Table/lib/Term/Table.pm b/cpan/Term-Table/lib/Term/Table.pm index cc04287864..d1fe554924 100644 --- a/cpan/Term-Table/lib/Term/Table.pm +++ b/cpan/Term-Table/lib/Term/Table.pm @@ -2,7 +2,7 @@ package Term::Table; use strict; use warnings; -our $VERSION = '0.027'; +our $VERSION = '0.028'; use Term::Table::Cell(); diff --git a/cpan/Term-Table/lib/Term/Table/Cell.pm b/cpan/Term-Table/lib/Term/Table/Cell.pm index e7e8511c8a..399d1871ac 100644 --- a/cpan/Term-Table/lib/Term/Table/Cell.pm +++ b/cpan/Term-Table/lib/Term/Table/Cell.pm @@ -2,7 +2,7 @@ package Term::Table::Cell; use strict; use warnings; -our $VERSION = '0.027'; +our $VERSION = '0.028'; use Term::Table::LineBreak(); use Term::Table::Util qw/uni_length/; diff --git a/cpan/Term-Table/lib/Term/Table/CellStack.pm b/cpan/Term-Table/lib/Term/Table/CellStack.pm index 22c878cc4c..1dd97b2f19 100644 --- a/cpan/Term-Table/lib/Term/Table/CellStack.pm +++ b/cpan/Term-Table/lib/Term/Table/CellStack.pm @@ -2,7 +2,7 @@ package Term::Table::CellStack; use strict; use warnings; -our $VERSION = '0.027'; +our $VERSION = '0.028'; use Term::Table::HashBase qw/-cells -idx/; diff --git a/cpan/Term-Table/lib/Term/Table/HashBase.pm b/cpan/Term-Table/lib/Term/Table/HashBase.pm index afe87ebb5e..e2a06f381a 100644 --- a/cpan/Term-Table/lib/Term/Table/HashBase.pm +++ b/cpan/Term-Table/lib/Term/Table/HashBase.pm @@ -2,7 +2,7 @@ package Term::Table::HashBase; use strict; use warnings; -our $VERSION = '0.027'; +our $VERSION = '0.028'; ################################################################# # # diff --git a/cpan/Term-Table/lib/Term/Table/LineBreak.pm b/cpan/Term-Table/lib/Term/Table/LineBreak.pm index 8082c809a5..11143311ea 100644 --- a/cpan/Term-Table/lib/Term/Table/LineBreak.pm +++ b/cpan/Term-Table/lib/Term/Table/LineBreak.pm @@ -2,7 +2,7 @@ package Term::Table::LineBreak; use strict; use warnings; -our $VERSION = '0.027'; +our $VERSION = '0.028'; use Carp qw/croak/; use Scalar::Util qw/blessed/; diff --git a/cpan/Term-Table/lib/Term/Table/Spacer.pm b/cpan/Term-Table/lib/Term/Table/Spacer.pm index 9a88856430..17f2b91c35 100644 --- a/cpan/Term-Table/lib/Term/Table/Spacer.pm +++ b/cpan/Term-Table/lib/Term/Table/Spacer.pm @@ -2,7 +2,7 @@ package Term::Table::Spacer; use strict; use warnings; -our $VERSION = '0.027'; +our $VERSION = '0.028'; sub new { bless {}, $_[0] } diff --git a/cpan/Term-Table/lib/Term/Table/Util.pm b/cpan/Term-Table/lib/Term/Table/Util.pm index 1476d62d44..f045fc33fa 100644 --- a/cpan/Term-Table/lib/Term/Table/Util.pm +++ b/cpan/Term-Table/lib/Term/Table/Util.pm @@ -5,7 +5,7 @@ use warnings; use List::Util qw/max/; use Config qw/%Config/; -our $VERSION = '0.027'; +our $VERSION = '0.028'; use base 'Exporter'; our @EXPORT_OK = qw/term_size USE_GCS USE_TERM_READKEY USE_TERM_SIZE_ANY uni_length/; @@ -38,7 +38,7 @@ if ($tsa) { *USE_TERM_READKEY = sub() { 0 }; *USE_TERM_SIZE_ANY = sub() { 1 }; *_term_size = sub { - my $size = max map { chars($_) // DEFAULT_SIZE } @IO; + my $size = max map { chars($_) || DEFAULT_SIZE } @IO; if (!$size || $size < DEFAULT_SIZE) { return $ENV{COLUMNS} if $ENV{COLUMNS} && $ENV{COLUMNS} > DEFAULT_SIZE;