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; @[EMAIL PROTECTED] = [EMAIL PROTECTED];
$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 ?
