From 7f9a841d4ceeb5b6bb1648c702c2c753b1d75a51 Mon Sep 17 00:00:00 2001
From: "mkanat%bugzilla.org" <>
Date: Fri, 14 Jul 2006 04:55:43 +0000
Subject: Bug 343338: Eliminate "my" variables from the root level of modules
 Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=myk

---
 Bugzilla/Token.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Bugzilla/Token.pm')

diff --git a/Bugzilla/Token.pm b/Bugzilla/Token.pm
index c570c34b1..447d27507 100644
--- a/Bugzilla/Token.pm
+++ b/Bugzilla/Token.pm
@@ -41,7 +41,7 @@ use Date::Parse;
 ################################################################################
 
 # The maximum number of days a token will remain valid.
-my $maxtokenage = 3;
+use constant MAX_TOKEN_AGE => 3;
 
 ################################################################################
 # Public Functions
@@ -63,7 +63,7 @@ sub IssueEmailChangeToken {
     $vars->{'oldemailaddress'} = $old_email . $email_suffix;
     $vars->{'newemailaddress'} = $new_email . $email_suffix;
     
-    $vars->{'max_token_age'} = $maxtokenage;
+    $vars->{'max_token_age'} = MAX_TOKEN_AGE;
     $vars->{'token_ts'} = $token_ts;
 
     $vars->{'token'} = $token;
@@ -114,7 +114,7 @@ sub IssuePasswordToken {
     $vars->{'token'} = $token;
     $vars->{'emailaddress'} = $loginname . Bugzilla->params->{'emailsuffix'};
 
-    $vars->{'max_token_age'} = $maxtokenage;
+    $vars->{'max_token_age'} = MAX_TOKEN_AGE;
     $vars->{'token_ts'} = $token_ts;
 
     my $message = "";
@@ -139,7 +139,7 @@ sub CleanTokenTable {
     $dbh->do('DELETE FROM tokens
               WHERE ' . $dbh->sql_to_days('NOW()') . ' - ' .
                         $dbh->sql_to_days('issuedate') . ' >= ?',
-              undef, $maxtokenage);
+              undef, MAX_TOKEN_AGE);
     $dbh->bz_unlock_tables();
 }
 
-- 
cgit v1.2.3-24-g4f1b