This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.36 in repository libmath-prime-util-perl.
commit 94dd05264e1d2640fc269768616eb015ca9fdfb9 Author: Dana Jacobsen <d...@acm.org> Date: Sat Dec 28 12:17:24 2013 -0800 Allow string numbers to have a leading + sign --- lib/Math/Prime/Util/PP.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Math/Prime/Util/PP.pm b/lib/Math/Prime/Util/PP.pm index f116c35..1f0b817 100644 --- a/lib/Math/Prime/Util/PP.pm +++ b/lib/Math/Prime/Util/PP.pm @@ -78,7 +78,7 @@ sub _validate_num { croak "Parameter must be defined" if !defined $n; return 0 if ref($n); croak "Parameter '$n' must be a positive integer" - if $n eq '' || $n =~ tr/0123456789//c; + if $n eq '' || ($n =~ tr/0123456789//c && $n !~ /^\+\d+/); croak "Parameter '$n' must be >= $min" if defined $min && $n < $min; croak "Parameter '$n' must be <= $max" if defined $max && $n > $max; return 0 unless $n < ~0 || int($n) eq ''.~0; @@ -89,7 +89,7 @@ sub _validate_positive_integer { my($n, $min, $max) = @_; croak "Parameter must be defined" if !defined $n; croak "Parameter '$n' must be a positive integer" - if ref($n) ne 'Math::BigInt' && $n =~ tr/0123456789//c; + if ref($n) ne 'Math::BigInt' && ($n =~ tr/0123456789//c && $n !~ /^\+\d+/); croak "Parameter '$n' must be >= $min" if defined $min && $n < $min; croak "Parameter '$n' must be <= $max" if defined $max && $n > $max; $_[0] = Math::BigInt->new("$_[0]") unless ref($_[0]) eq 'Math::BigInt'; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits