Return-Path: X-Original-To: apmail-perl-test-commits-archive@www.apache.org Delivered-To: apmail-perl-test-commits-archive@www.apache.org Received: from mail.apache.org (hermes.apache.org [140.211.11.3]) by minotaur.apache.org (Postfix) with SMTP id 5456617DBA for ; Wed, 8 Apr 2015 07:53:14 +0000 (UTC) Received: (qmail 2828 invoked by uid 500); 8 Apr 2015 07:53:14 -0000 Mailing-List: contact test-commits-help@perl.apache.org; run by ezmlm Precedence: bulk List-Help: List-Unsubscribe: List-Post: List-Id: Reply-To: test-dev@perl.apache.org Delivered-To: mailing list test-commits@perl.apache.org Received: (qmail 2819 invoked by uid 99); 8 Apr 2015 07:53:14 -0000 Received: from eris.apache.org (HELO hades.apache.org) (140.211.11.105) by apache.org (qpsmtpd/0.29) with ESMTP; Wed, 08 Apr 2015 07:53:14 +0000 Received: from hades.apache.org (localhost [127.0.0.1]) by hades.apache.org (ASF Mail Server at hades.apache.org) with ESMTP id 215EAAC0236 for ; Wed, 8 Apr 2015 07:53:14 +0000 (UTC) Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Subject: svn commit: r1672023 - /perl/Apache-Test/trunk/Makefile.PL Date: Wed, 08 Apr 2015 07:53:14 -0000 To: test-commits@perl.apache.org From: stevehay@apache.org X-Mailer: svnmailer-1.0.9 Message-Id: <20150408075314.215EAAC0236@hades.apache.org> Author: stevehay Date: Wed Apr 8 07:53:13 2015 New Revision: 1672023 URL: http://svn.apache.org/r1672023 Log: Silence warnings like 'Argument "3.48_01" isn't numeric in numeric ge (>=)' when checking prereq versions Modified: perl/Apache-Test/trunk/Makefile.PL Modified: perl/Apache-Test/trunk/Makefile.PL URL: http://svn.apache.org/viewvc/perl/Apache-Test/trunk/Makefile.PL?rev=1672023&r1=1672022&r2=1672023&view=diff ============================================================================== --- perl/Apache-Test/trunk/Makefile.PL (original) +++ perl/Apache-Test/trunk/Makefile.PL Wed Apr 8 07:53:13 2015 @@ -124,7 +124,7 @@ sub chk_version { my $vstr = ${"${pkg}::VERSION"} ? "found v" . ${"${pkg}::VERSION"} : "not found"; - my $vnum = ${"${pkg}::VERSION"} || 0; + my $vnum = eval(${"${pkg}::VERSION"}) || 0; print $vnum >= $wanted ? "ok\n" : " " . $vstr . "\n";