From f162521444148d622df3b42a8304b6cce8f2150e Mon Sep 17 00:00:00 2001
From: "mkanat%bugzilla.org" <>
Date: Thu, 6 Jul 2006 13:12:04 +0000
Subject: Bug 173629: Clean up "my" variable scoping issues for mod_perl Patch
 By Max Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=myk

---
 buglist.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'buglist.cgi')

diff --git a/buglist.cgi b/buglist.cgi
index 937749d28..1a7ffc316 100755
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -186,7 +186,7 @@ foreach my $chart (@charts) {
 # Utilities
 ################################################################################
 
-my @weekday= qw( Sun Mon Tue Wed Thu Fri Sat );
+local our @weekday= qw( Sun Mon Tue Wed Thu Fri Sat );
 sub DiffDate {
     my ($datestr) = @_;
     my $date = str2time($datestr);
@@ -520,7 +520,7 @@ if (!$params->param('query_format')) {
 # Note: For column names using aliasing (SQL "<field> AS <alias>"), the column
 #       ID needs to be identical to the field ID for list ordering to work.
 
-my $columns = {};
+local our $columns = {};
 sub DefineColumn {
     my ($id, $name, $title) = @_;
     $columns->{$id} = { 'name' => $name , 'title' => $title };
-- 
cgit v1.2.3-24-g4f1b