[libtext-tabulardisplay-perl] 01/01: Imported Upstream version 1.37
Salvatore Bonaccorso
carnil at debian.org
Fri Jul 4 18:38:22 UTC 2014
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 <carnil at debian.org>
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 <darren at cpan.org>
@@ -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 <darren at cpan.org>
+# Copyright (C) 2004-2014 darren chamberlain <darren at cpan.org>
#
# 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
More information about the Pkg-perl-cvs-commits
mailing list