dougm       2002/09/18 14:33:23

  Modified:    perl-framework/Apache-Test/lib/Apache TestMM.pm TestRun.pm
  Log:
  backing out previous patch for TEST_VERBOSE=1 support as it does not work 
with 5.6.1
  
  Revision  Changes    Path
  1.18      +1 -3      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestMM.pm
  
  Index: TestMM.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestMM.pm,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- TestMM.pm 18 Sep 2002 21:26:58 -0000      1.17
  +++ TestMM.pm 18 Sep 2002 21:33:23 -0000      1.18
  @@ -44,8 +44,6 @@
   EOF
   
       return $preamble . <<'EOF';
  -TEST_VERBOSE = 0
  -
   test_clean :
        $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) \
        t/TEST -clean
  @@ -53,7 +51,7 @@
   run_tests : test_clean
        $(PASSENV) \
        $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) \
  -     t/TEST -verbose=$(TEST_VERBOSE)
  +     t/TEST
   
   test :: pure_all run_tests test_clean
   
  
  
  
  1.95      +1 -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.94
  retrieving revision 1.95
  diff -u -r1.94 -r1.95
  --- TestRun.pm        18 Sep 2002 21:26:58 -0000      1.94
  +++ TestRun.pm        18 Sep 2002 21:33:23 -0000      1.95
  @@ -22,10 +22,9 @@
   my %core_files  = ();
   
   my @std_run      = qw(start-httpd run-tests stop-httpd);
  -my @others       = qw(configure clean help ssl http11);
  +my @others       = qw(verbose configure clean help ssl http11);
   my @flag_opts    = (@std_run, @others);
   my @string_opts  = qw(order trace);
  -my @vary_opts    = qw(verbose);
   my @ostring_opts = qw(proxy ping);
   my @debug_opts   = qw(debug);
   my @num_opts     = qw(times);
  @@ -167,7 +166,6 @@
       GetOptions(\%opts, @flag_opts, @help_opts,
                  (map "$_:s", @debug_opts, @request_opts, @ostring_opts),
                  (map "$_=s", @string_opts),
  -               (map "$_:1", @vary_opts),
                  (map "$_=i", @num_opts),
                  (map { ("$_=s", $vopts{$_} ||= []) } @list_opts),
                  (map { ("$_=s", $vopts{$_} ||= {}) } @hash_opts));
  
  
  

Reply via email to