This is an automated email from the git hooks/post-receive script. carnil pushed a commit to annotated tag upstream/1.37 in repository libtext-tabulardisplay-perl.
commit 61d323b87584ae3d46f95194c44d5cc1b7e85908 Author: Salvatore Bonaccorso <[email protected]> Date: Fri Jul 4 20:37:58 2014 +0200 Imported Upstream version 1.37 --- META.yml | 5 ++--- Makefile.PL | 2 +- README | 3 ++- TabularDisplay.pm | 12 +++++++++--- 4 files changed, 14 insertions(+), 8 deletions(-) diff --git a/META.yml b/META.yml index 1f2fd9c..158a148 100644 --- a/META.yml +++ b/META.yml @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Text-TabularDisplay -version: 1.35 +version: 1.37 abstract: Display text in formatted table output author: - darren chamberlain <[email protected]> @@ -10,8 +10,7 @@ configure_requires: ExtUtils::MakeMaker: 0 build_requires: ExtUtils::MakeMaker: 0 -requires: - IO::File: ~ +requires: {} no_index: directory: - t diff --git a/Makefile.PL b/Makefile.PL index f5b133a..2a412cf 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -5,7 +5,7 @@ use vars qw(%PREREQ_PM @EXE_FILES %clean); use ExtUtils::MakeMaker; -%PREREQ_PM = ('IO::File'); +%PREREQ_PM = (); %clean = ('FILES' => '$(DISTVNAME).tar$(SUFFIX)'); WriteMakefile( diff --git a/README b/README index 4d36d4b..75cdfc3 100644 --- a/README +++ b/README @@ -233,7 +233,8 @@ CREDITS Slaven Rezic Harlan Lieberman-Berg Patrick Kuijvenhoven + Miko O'Sullivan VERSION - This documentation describes "Text::TabularDisplay" version 1.35. + This documentation describes "Text::TabularDisplay" version 1.37. diff --git a/TabularDisplay.pm b/TabularDisplay.pm index 65d1027..902861a 100644 --- a/TabularDisplay.pm +++ b/TabularDisplay.pm @@ -2,7 +2,7 @@ package Text::TabularDisplay; # ------------------------------------------------------------------- # Text::TabularDisplay - Display text in formatted table output -# Copyright (C) 2004-2012 darren chamberlain <[email protected]> +# Copyright (C) 2004-2014 darren chamberlain <[email protected]> # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as @@ -23,7 +23,7 @@ use strict; use integer; use vars qw($VERSION); -$VERSION = "1.35"; +$VERSION = "1.37"; # ---======================= Public Methods ======================--- @@ -284,6 +284,11 @@ sub _column_length if $len < length; } + # untaint $len + unless ($len =~ m|^(\d+)$|s) + { die 'invalid length: ' . $len } + $len = $1; + return $len; } @@ -553,8 +558,9 @@ feedback, or good karma: Slaven Rezic Harlan Lieberman-Berg Patrick Kuijvenhoven + Miko O'Sullivan =head1 VERSION -This documentation describes C<Text::TabularDisplay> version 1.35. +This documentation describes C<Text::TabularDisplay> version 1.37. -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtext-tabulardisplay-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
