From 800c1c33297fa0971aec40ff47f380db8e1d08bc Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Fri, 26 Sep 2014 11:10:22 -0700 Subject: [PATCH] fix missing semicolon; check that HTTP_HOST is defined --- cgi/version.cgi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cgi/version.cgi b/cgi/version.cgi index 9858d31..cd9abd7 100755 --- a/cgi/version.cgi +++ b/cgi/version.cgi @@ -5,7 +5,7 @@ use strict; # Hack to work on merkel where suexec is in place BEGIN{ - if ($ENV{HTTP_HOST} eq 'merkel.debian.org') { + if (defined $ENV{HTTP_HOST} and $ENV{HTTP_HOST} eq 'merkel.debian.org') { unshift @INC, qw(/home/don/perl/usr/share/perl5 /home/don/perl/usr/lib/perl5 /home/don/source); $ENV{DEBBUGS_CONFIG_FILE}="/home/don/config_internal"; } @@ -95,7 +95,7 @@ if ($cgi_var{info} and not defined $cgi_var{dot}) { END print ''.html_escape($cgi_var{package}).' Version Graph'."\n"; - print "\n" + print "\n"; print '['.($cgi_var{ignore_boring}?"Don't i":'I').'gnore boring] '; print '