From eeec04a1f0a645b3922b2fad4ca76383a2fc8d39 Mon Sep 17 00:00:00 2001
From: "gerv%gerv.net" <>
Date: Fri, 11 Oct 2002 13:27:34 +0000
Subject: Bug 173719 - warnings in report.cgi. Patch by gerv; r=bbaetz.

---
 report.cgi | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'report.cgi')

diff --git a/report.cgi b/report.cgi
index 35055110e..9e60c1dc9 100755
--- a/report.cgi
+++ b/report.cgi
@@ -21,7 +21,6 @@
 # Contributor(s): Gervase Markham <gerv@gerv.net>
 #                 <rdean@cambianetworks.com>
 
-use diagnostics;
 use strict;
 use lib ".";
 
@@ -92,8 +91,8 @@ my %names;
 # Read the bug data and increment the counts.
 while (MoreSQLData()) {
     my ($row, $col, $tbl) = FetchSQLData();
-    $col = "" if ($col == $columns{''});
-    $tbl = "" if ($tbl == $columns{''});
+    $col = "" if ($col eq $columns{''});
+    $tbl = "" if ($tbl eq $columns{''});
     
     $data{$tbl}{$col}{$row}++;
     $names{"col"}{$col}++;
@@ -118,6 +117,6 @@ $vars->{'buffer'} = $::buffer;
 
 # Generate and return the result from the appropriate template.
 my $format = GetFormat("reports/report", $::FORM{'format'}, $::FORM{'ctype'});
-print "Content-Type: $format->{'contenttype'}\n\n";
+print "Content-Type: $format->{'ctype'}\n\n";
 $template->process("$format->{'template'}", $vars)
   || ThrowTemplateError($template->error());
-- 
cgit v1.2.3-24-g4f1b