stas 2003/04/22 18:58:31
Modified: perl-framework/Apache-Test/lib/Apache TestTrace.pm
Log:
don't want to lose 0, "", s/grep \$_/grep defined(\$_)/
Revision Changes Path
1.13 +4 -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.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- TestTrace.pm 23 Apr 2003 00:48:26 -0000 1.12
+++ TestTrace.pm 23 Apr 2003 01:58:31 -0000 1.13
@@ -78,13 +78,15 @@
sub c_trace {
my $level = shift;
print $LogFH
- map { "$colors{$level}$_$colors{reset}\n"} grep $_, expand(@_);
+ map { "$colors{$level}$_$colors{reset}\n"}
+ grep defined($_), expand(@_);
}
sub nc_trace {
my $level = shift;
print $LogFH
- map { sprintf "%-3s %s\n", $colors{$level}, $_ } grep $_, expand(@_);
+ map { sprintf "%-3s %s\n", $colors{$level}, $_ }
+ grep defined($_), expand(@_);
}
{
