Bug 172740 - "use of uninitialized variable" warnings. Patch by gerv; r=bbaetz.

diff --git a/buglist.cgi b/buglist.cgi
index 8c8f5200847a1d1e9494def6285ca9acafb4796f..4e1a8eec455908c99f6e9f7c961355b52b0820d5 100755 (executable)
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -83,7 +83,7 @@ else {
 }
 
 # Hack to support legacy applications that think the RDF ctype is at format=rdf.
-if ($::FORM{'format'} eq "rdf" && !$::FORM{'ctype'}) { 
+if ($::FORM{'format'} && $::FORM{'format'} eq "rdf" && !$::FORM{'ctype'}) { 
     $::FORM{'ctype'} = "rdf";
     delete($::FORM{'format'});
 }

diff --git a/globals.pl b/globals.pl
index f1e8f0d74b93409017845239cf80ea7450ae9ae9..b52161eebd8e35ce2556141ad72c5c2ba863a7e5 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -1631,6 +1631,7 @@ sub GetFormat {
     my ($template, $format, $ctype) = @_;
     
     $ctype ||= "html";
+    $format ||= "";
     
     # Security - allow letters and a hyphen only
     $ctype =~ s/[^a-zA-Z\-]//g;