From ce7bf3fec2b2e1aaef1d538692d9dfe7bec93f17 Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Fri, 1 Jun 2001 09:14:23 +0000
Subject: Fix for bug 72862: fixes more Perl warnings in RelationSet.pm and
 globals.pl

---
 Bugzilla/RelationSet.pm | 8 +++++++-
 RelationSet.pm          | 8 +++++++-
 globals.pl              | 2 ++
 3 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/Bugzilla/RelationSet.pm b/Bugzilla/RelationSet.pm
index bc31c96c7..4b778a6fd 100644
--- a/Bugzilla/RelationSet.pm
+++ b/Bugzilla/RelationSet.pm
@@ -32,7 +32,11 @@
 use diagnostics;
 use strict;
 
-require "globals.pl";
+# Everything that uses RelationSet should already have globals.pl loaded
+# so we don't want to load it here.  Doing so causes a loop in Perl because
+# globals.pl turns around and does a 'use RelationSet'
+# See http://bugzilla.mozilla.org/show_bug.cgi?id=72862
+#require "globals.pl";
 
 package RelationSet;
 use CGI::Carp qw(fatalsToBrowser);
@@ -260,3 +264,5 @@ sub toString {
 
   return join(',', sort(@result));
 }  
+
+1;
diff --git a/RelationSet.pm b/RelationSet.pm
index bc31c96c7..4b778a6fd 100644
--- a/RelationSet.pm
+++ b/RelationSet.pm
@@ -32,7 +32,11 @@
 use diagnostics;
 use strict;
 
-require "globals.pl";
+# Everything that uses RelationSet should already have globals.pl loaded
+# so we don't want to load it here.  Doing so causes a loop in Perl because
+# globals.pl turns around and does a 'use RelationSet'
+# See http://bugzilla.mozilla.org/show_bug.cgi?id=72862
+#require "globals.pl";
 
 package RelationSet;
 use CGI::Carp qw(fatalsToBrowser);
@@ -260,3 +264,5 @@ sub toString {
 
   return join(',', sort(@result));
 }  
+
+1;
diff --git a/globals.pl b/globals.pl
index 4b68d717b..81aa80e4e 100644
--- a/globals.pl
+++ b/globals.pl
@@ -31,6 +31,7 @@ use strict;
 
 sub globals_pl_sillyness {
     my $zz;
+    $zz = @main::SqlStateStack;
     $zz = @main::chooseone;
     $zz = @main::default_column_list;
     $zz = $main::defaultqueryname;
@@ -48,6 +49,7 @@ sub globals_pl_sillyness {
     $zz = @main::legal_versions;
     $zz = @main::milestoneurl;
     $zz = @main::prodmaxvotes;
+    $zz = $main::superusergroupset;
 }
 
 #
-- 
cgit v1.2.3-24-g4f1b