Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: test-dev@httpd.apache.org
Date: 4 Aug 2004 18:47:51 -0000
Message-ID: <20040804184751.51492.qmail@minotaur.apache.org>
From: geoff@apache.org
To: httpd-test-cvs@apache.org
Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache Test.pm

geoff       2004/08/04 11:47:51

  Modified:    perl-framework/Apache-Test/lib/Apache Test.pm
  Log:
  use no warnings qw(numeric) in need_min_module_version to allow for
  comparisons where the module version is non-standard, like
    need_min_module_version(qw(Test::Builder 0.18_01));
  
  Revision  Changes    Path
  1.89      +1 -1      httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm
  
  Index: Test.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm,v
  retrieving revision 1.88
  retrieving revision 1.89
  diff -u -r1.88 -r1.89
  --- Test.pm	2 Aug 2004 19:00:05 -0000	1.88
  +++ Test.pm	4 Aug 2004 18:47:50 -0000	1.89
  @@ -254,7 +254,7 @@
       # need_module requires the perl module
       return 0 unless need_module($module);
   
  -    return 1 if eval { $module->VERSION($version) };
  +    return 1 if eval {  no warnings qw(numeric); $module->VERSION($version) };
   
       push @SkipReasons, "$module version $version or higher is required";
       return 0;