[libmath-prime-util-perl] 14/18: Silence perl critic for expression eval

[Partha P. Mukherjee]

This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.17
in repository libmath-prime-util-perl.

commit be6502f6255e31d8c870a1244c0084c2ba227786
Author: Dana Jacobsen <dana at acm.org>
Date:   Wed Dec 19 23:41:09 2012 -0800

    Silence perl critic for expression eval
---
 bin/primes.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/primes.pl b/bin/primes.pl
index 988e0f4..8ba5e7e 100755
--- a/bin/primes.pl
+++ b/bin/primes.pl
@@ -538,7 +538,7 @@ sub eval_expr {
   $expr =~ s/:1/nth_prime/g;
   $expr =~ s/:2/log/g;
   $expr =~ s/(\d+)/ Math::BigInt->new($1) /g;
-  my $res = eval $expr;
+  my $res = eval $expr; ## no critic
   die "Cannot eval: $expr\n" if !defined $res;
   $res = int($res->bstr) if ref($res) eq 'Math::BigInt' && $res <= ~0;
   $res;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git