]> git.donarmstrong.com Git - debbugs.git/commitdiff
projects / debbugs.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 8674205)
fix missing semicolon; check that HTTP_HOST is defined
authorDon Armstrong <don@donarmstrong.com>
Fri, 26 Sep 2014 18:10:22 +0000 (11:10 -0700)
committerDon Armstrong <don@donarmstrong.com>
Fri, 26 Sep 2014 18:10:22 +0000 (11:10 -0700)
cgi/version.cgi patch | blob | history

diff --git a/cgi/version.cgi b/cgi/version.cgi
index 9858d317a59dd002d8143fdcc6041688207abc62..cd9abd72de748e965f9efcd6b9bd0c9df46e1ba8 100755 (executable)
--- 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}) {
 <html>
 END
      print '<head><title>'.html_escape($cgi_var{package}).' Version Graph</title></head>'."\n";
-     print "<body>\n"
+     print "<body>\n";
      print '<a href="'.html_escape(munge_url($this,ignore_boring=>$cgi_var{ignore_boring}?0:1)).
          '">['.($cgi_var{ignore_boring}?"Don't i":'I').'gnore boring]</a> ';
      print '<a href="'.html_escape(munge_url($this,collapse=>$cgi_var{collapse}?0:1)).
Debian bug tracker development