fix to quiet new perl warnings about using undefined value.

git-svn-id: svn://10.0.0.236/trunk@135056 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
kestes%walrus.com 2002-12-10 19:28:48 +00:00
parent bf87e9a49e
commit 70966ce2a4

View File

@ -1,8 +1,8 @@
# -*- Mode: perl; indent-tabs-mode: nil -*-
# $Revision: 1.22 $
# $Date: 2002-05-09 03:09:52 $
# $Revision: 1.23 $
# $Date: 2002-12-10 19:28:48 $
# $Author: kestes%walrus.com $
# $Source: /home/befator/cvs/jail/cvsroot/mozilla/webtools/tinderbox2/src/default_conf/BuildStatus.pm,v $
# $Name: not supported by cvs2svn $
@ -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;
}