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 00:48:26 GMT
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(@_);
   }
   
   {
  
  
  

Mime
View raw message