From 4862600fbf51d9f468f69e198f7e50648250235a Mon Sep 17 00:00:00 2001
From: Koosha Khajeh Moogahi <koosha.khajeh@gmail.com>
Date: Tue, 24 Apr 2012 20:27:35 +0200
Subject: Bug 645427: Bugzilla->usage_mode( USAGE_MODE_BROWSER ) doesn't change
 Bugzilla->usage_mode r/a=LpSolit

---
 Bugzilla.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'Bugzilla.pm')

diff --git a/Bugzilla.pm b/Bugzilla.pm
index 8928ff8b0..621222e8a 100644
--- a/Bugzilla.pm
+++ b/Bugzilla.pm
@@ -485,8 +485,14 @@ sub usage_mode {
         }
         $class->request_cache->{usage_mode} = $newval;
     }
-    return $class->request_cache->{usage_mode}
-        || (i_am_cgi()? USAGE_MODE_BROWSER : USAGE_MODE_CMDLINE);
+
+    # XXX - Once we require Perl 5.10.1, this test can be replaced by //.
+    if (exists $class->request_cache->{usage_mode}) {
+        return $class->request_cache->{usage_mode};
+    }
+    else {
+        return (i_am_cgi()? USAGE_MODE_BROWSER : USAGE_MODE_CMDLINE);
+    }
 }
 
 sub installation_mode {
-- 
cgit v1.2.3-24-g4f1b