httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestTrace.pm
Date Wed, 23 Apr 2003 01:58:31 GMT
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(@_);
   }
   
   {
  
  
  

Mime
View raw message