I have a better fix for perl warning the last checkin was meant to fix.

Fix it at the source in Build.pm.  This function really should return
undefined if the result is undefined.

webtools/tinderbox2/src/default_conf/BuildStatus.pm

@@ -1,8 +1,8 @@
 # -*- Mode: perl; indent-tabs-mode: nil -*-
 
 
-# $Revision: 1.23 $ 
-# $Date: 2002-12-10 19:28:48 $ 
+# $Revision: 1.24 $ 
+# $Date: 2002-12-10 19:43:21 $ 
 # $Author: kestes%walrus.com $ 
 # $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/default_conf/BuildStatus.pm,v $ 
 # $Name:  $ 
@@ -343,7 +343,7 @@ sub status2header_background_gif {
 
   for ($i=0; $i <= $#latest_status; $i++) {
     my ($status) = $latest_status[$i];
-    my ($out) = $STATUS{$status}{'header_background_gif'} || '';
+    my ($out) = $STATUS{$status}{'header_background_gif'};
     push @out, $out;
   }