cvs commit: modperl-2.0/t/lib/TestAPRlib finfo.pm util.pm

[stas]

stas        2004/09/17 13:21:45

  Modified:    t/lib/TestAPRlib finfo.pm util.pm
  Log:
  fix the requirements for the minimal apache version (was asking for a
  specific version before)
  
  Revision  Changes    Path
  1.3       +2 -2      modperl-2.0/t/lib/TestAPRlib/finfo.pm
  
  Index: finfo.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/lib/TestAPRlib/finfo.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- finfo.pm  24 Jul 2004 01:42:42 -0000      1.2
  +++ finfo.pm  17 Sep 2004 20:21:45 -0000      1.3
  @@ -10,7 +10,7 @@
   use constant WIN32 => Apache::TestConfig::WIN32;
   use constant OSX   => Apache::TestConfig::OSX;
   
  -use constant APACHE_2_0_49 => have_apache_version('2.0.49');
  +use constant APACHE_2_0_49_PLUS => have_min_apache_version('2.0.49');
   
   use File::Spec::Functions qw(catfile);
   use Fcntl qw(:mode);
  @@ -92,7 +92,7 @@
       # tests for stuff not in perl's stat
       {
           # BACK_COMPAT_MARKER - fixed as of 2.0.49.
  -        if (WIN32 && !APACHE_2_0_49) {
  +        if (WIN32 && !APACHE_2_0_49_PLUS) {
               skip "finfo.fname requires Apache 2.0.49 or later", 0;
           }
           else {
  
  
  
  1.2       +1 -1      modperl-2.0/t/lib/TestAPRlib/util.pm
  
  Index: util.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/lib/TestAPRlib/util.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- util.pm   15 Jul 2004 15:32:32 -0000      1.1
  +++ util.pm   17 Sep 2004 20:21:45 -0000      1.2
  @@ -22,7 +22,7 @@
   );
   
   # BACK_COMPAT_MARKER (sha1 support added in 2.0.50)
  -delete $hashes{sha1} unless have_apache_version('2.0.50');
  +delete $hashes{sha1} unless have_min_apache_version('2.0.50');
   
   sub num_of_tests {
       return 1 + scalar keys %hashes;