stas 2003/04/22 17:48:26
Modified: perl-framework/Apache-Test/lib/Apache TestTrace.pm
Log:
prevent 'Use of uninitialized value in concatenation (.)' errors when the
trace function is passed undef
Revision Changes Path
1.12 +2 -2
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.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- TestTrace.pm 19 May 2002 07:58:17 -0000 1.11
+++ TestTrace.pm 23 Apr 2003 00:48:26 -0000 1.12
@@ -78,13 +78,13 @@
sub c_trace {
my $level = shift;
print $LogFH
- map { "$colors{$level}$_$colors{reset}\n"} expand(@_);
+ map { "$colors{$level}$_$colors{reset}\n"} grep $_, expand(@_);
}
sub nc_trace {
my $level = shift;
print $LogFH
- map { sprintf "%-3s %s\n", $colors{$level}, $_ } expand(@_);
+ map { sprintf "%-3s %s\n", $colors{$level}, $_ } grep $_, expand(@_);
}
{
