cvs commit: httpd-test/perl-framework/t/modules autoindex.t expires.t

[do...@apache.org]

dougm       01/10/16 13:31:51

  Modified:    perl-framework/t/modules autoindex.t expires.t
  Log:
  syntaxificationize to make 5.005 happy
  
  Revision  Changes    Path
  1.3       +4 -4      httpd-test/perl-framework/t/modules/autoindex.t
  
  Index: autoindex.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/autoindex.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- autoindex.t	2001/09/12 13:41:19	1.2
  +++ autoindex.t	2001/10/16 20:31:51	1.3
  @@ -85,10 +85,10 @@
   foreach my $fancy (0,1) {
   
       ## test default order requests ##
  -    foreach my $order qw(Ascending Descending) {
  +    foreach my $order (qw(Ascending Descending)) {
           $O = substr($order, 0, 1);
   
  -        foreach my $component qw(Name Date Size) {
  +        foreach my $component (qw(Name Date Size)) {
               $C = substr($component, 0, 1);
               $C = 'M' if $C eq 'D';
               my $config_string = '';
  @@ -99,8 +99,8 @@
               sok { ai_test($config_string,$C,$O,$uri) };
   
               ## test explicit order requests ##
  -            foreach $C qw(N M S) {
  -                foreach $O qw(A D) {
  +            foreach $C (qw(N M S)) {
  +                foreach $O (qw(A D)) {
                       my $test_uri;
                       if ($have_apache_2) {
                           $test_uri = "$uri?C=$C\&O=$O";
  
  
  
  1.7       +5 -5      httpd-test/perl-framework/t/modules/expires.t
  
  Index: expires.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/expires.t,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- expires.t	2001/09/18 15:41:03	1.6
  +++ expires.t	2001/10/16 20:31:51	1.7
  @@ -60,7 +60,7 @@
   }
   
   ## testing with .htaccess ##
  -foreach my $on_off qw(On Off) {
  +foreach my $on_off (qw(On Off)) {
   
       my $ExpiresActive = "ExpiresActive $on_off\n";
       write_htaccess($ExpiresActive);
  @@ -79,7 +79,7 @@
               $ExpiresDefault, $ExpiresByType);
   
           ## testing with just ExpiresDefault directive ##
  -        $a_m = qw(A M)[int(rand(2))];
  +        $a_m = (qw(A M))[int(rand(2))];
           ($gmsec, $ExpiresDefault) = get_rand_time_str($a_m);
           %exp = default_exp();
           set_exp('default', "$a_m$gmsec");
  @@ -93,7 +93,7 @@
           }
   
           ## just ExpiresByType directive ##
  -        $a_m = qw(A M)[int(rand(2))];
  +        $a_m = (qw(A M))[int(rand(2))];
           ($gmsec, $ExpiresByType) = get_rand_time_str($a_m);
           %exp = default_exp();
           set_exp($t, "$a_m$gmsec");
  @@ -107,11 +107,11 @@
           }
   
           ## both ##
  -        $a_m = qw(A M)[int(rand(2))];
  +        $a_m = (qw(A M))[int(rand(2))];
           ($gmsec, $ExpiresDefault) = get_rand_time_str($a_m);
           %exp = default_exp();
           set_exp('default', "$a_m$gmsec");
  -        $a_m = qw(A M)[int(rand(2))];
  +        $a_m = (qw(A M))[int(rand(2))];
           ($gmsec, $ExpiresByType) = get_rand_time_str($a_m);
           set_exp($t, "$a_m$gmsec");
           $directive_string = $ExpiresActive .