cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache Test.pm

[geoff]

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;