perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPR util.pm
Date Thu, 27 May 2004 21:07:33 GMT
stas        2004/05/27 14:07:33

  Modified:    t/response/TestAPR util.pm
  Log:
  sha1 support added in 2.0.50
  
  Revision  Changes    Path
  1.10      +6 -1      modperl-2.0/t/response/TestAPR/util.pm
  
  Index: util.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/util.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -u -r1.9 -r1.10
  --- util.pm	27 May 2004 02:09:28 -0000	1.9
  +++ util.pm	27 May 2004 21:07:33 -0000	1.10
  @@ -23,10 +23,15 @@
       sha1  => '{SHA}A5NpTRa4TethLkfOYlK9NfDYbAY=',
   );
   
  +# BACK_COMPAT_MARKER (sha1 support added in 2.0.50)
  +delete $hashes{sha1} unless have_apache_version('2.0.50');
  +
  +my $password_validate_tests = 1 + scalar keys %hashes;
  +
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 4;
  +    plan $r, tests => $password_validate_tests;
   
       # password_validate
       {
  
  
  

Mime
View raw message