stas 02/05/19 00:58:18
Modified: perl-framework/Apache-Test/lib/Apache TestTrace.pm
Log:
produce less noise when working in non-colored mode
Revision Changes Path
1.11 +3 -3
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.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- TestTrace.pm 20 Dec 2001 17:30:54 -0000 1.10
+++ TestTrace.pm 19 May 2002 07:58:17 -0000 1.11
@@ -64,8 +64,8 @@
crit => '%%%',
error => '!!!',
warning => '***',
- notice => '---',
- info => '___',
+ notice => '- ',
+ info => ' ',
debug => '==>',
todo => 'todo',
);
@@ -84,7 +84,7 @@
sub nc_trace {
my $level = shift;
print $LogFH
- map { sprintf "%-4s: %s\n", $colors{$level}, $_ } expand(@_);
+ map { sprintf "%-3s %s\n", $colors{$level}, $_ } expand(@_);
}
{
