httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestTrace.pm
Date Fri, 14 Dec 2001 18:43:30 GMT
dougm       01/12/14 10:43:30

  Modified:    perl-framework/Apache-Test/lib/Apache TestTrace.pm
  Log:
  style nits
  
  Revision  Changes    Path
  1.9       +30 -24    httpd-test/perl-framework/Apache-Test/lib/Apache/TestTrace.pm
  
  Index: TestTrace.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestTrace.pm,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- TestTrace.pm	2001/12/14 18:34:39	1.8
  +++ TestTrace.pm	2001/12/14 18:43:30	1.9
  @@ -31,36 +31,42 @@
   # emerg => 1, alert => 2, crit => 3, ...
   my %levels; @levels{@Levels} = 1..@Levels;
   $levels{todo} = $levels{debug};
  -my $default_level = 'warning'; # to prevent user typos
  +my $default_level = 'info'; # to prevent user typos
   
   my %colors = ();
   
   if (HAS_COLOR) {
  +    %colors = (
  +        emerg   => 'bold white on_blue',
  +        alert   => 'bold blue on_yellow',
  +        crit    => 'reverse',
  +        error   => 'bold red',
  +        warning => 'yellow',
  +        notice  => 'green',
  +        info    => 'cyan',
  +        debug   => 'magenta',
  +        reset   => 'reset',
  +        todo    => 'underline',
  +    );
  +
       $Term::ANSIColor::AUTORESET = 1;
  -    %colors = (emerg   => 'bold white on_blue',
  -               alert   => 'bold blue on_yellow',
  -               crit    => 'reverse',
  -               error   => 'bold red',
  -               warning => 'yellow',
  -               notice  => 'green',
  -               info    => 'cyan',
  -               debug   => 'magenta',
  -               reset   => 'reset',
  -               todo    => 'underline',
  -              );
  -    $colors{$_} = Term::ANSIColor::color($colors{$_}) for keys %colors;
  -} else {
  +
  +    for (keys %colors) {
  +        $colors{$_} = Term::ANSIColor::color($colors{$_});
  +    }
  +}
  +else {
       %colors = (
  -               emerg   => '&&&',
  -               alert   => '$$$',
  -               crit    => '%%%',
  -               error   => '!!!',
  -               warning => '***',
  -               notice  => '---',
  -               info    => '___',
  -               debug   => '==>',
  -               todo    => 'todo',
  -              );
  +        emerg   => '&&&',
  +        alert   => '$$$',
  +        crit    => '%%%',
  +        error   => '!!!',
  +        warning => '***',
  +        notice  => '---',
  +        info    => '___',
  +        debug   => '==>',
  +        todo    => 'todo',
  +    );
   }
   
   *expand = HAS_DUMPER ?
  
  
  

Mime
View raw message