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

[stas]

stas        01/10/19 09:09:40

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  - don't lose unknown options (starting with --?), we want to abort the run
  if such are found.
  
  Revision  Changes    Path
  1.63      +4 -3      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
  
  Index: TestRun.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
  retrieving revision 1.62
  retrieving revision 1.63
  diff -u -r1.62 -r1.63
  --- TestRun.pm        2001/10/19 01:32:02     1.62
  +++ TestRun.pm        2001/10/19 16:09:39     1.63
  @@ -176,14 +176,15 @@
               # a known config option?
               if (exists $Apache::TestConfig::Usage{$key}) {
                   $conf_opts{$key} = shift @ARGV;
  +                next;
               } # a TestRequest config option?
               elsif (exists $req_wanted_args->{$key}) {
                   $req_args{$key} = shift @ARGV;
  +                next;
               }
           }
  -        else {
  -            push @argv, $val;
  -        }
  +        # to be processed later
  +        push @argv, $val;
       }
   
       $opts{req_args} = \%req_args;