From 17b301e76d886afd5be8f4e9919afb4446e49405 Mon Sep 17 00:00:00 2001
From: "preed%sigkill.com" <>
Date: Mon, 12 Aug 2002 05:59:03 +0000
Subject: Bug 162217: fixed my bustage introduced in bug 160410; yes, I owe the
 whole Bugzilla team a good bottle of tequila now (ask Baloo for details)

---
 globals.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'globals.pl')

diff --git a/globals.pl b/globals.pl
index e54dff245..16cdba73b 100644
--- a/globals.pl
+++ b/globals.pl
@@ -1440,7 +1440,13 @@ sub Param ($) {
     # If it's still not defined, we're pimped.
     die "Can't find param named $value" if (! defined $::param{$value});
 
-    if ($::param_type{$value} eq "m") {
+    ## Check to make sure the entry in $::param_type is there; if we don't, we
+    ## get 'use of uninitialized constant' errors (see bug 162217). 
+    ## Interestingly  enough, placing this check in the die above causes 
+    ## deaths on some params (the "languages" param?) because they don't have
+    ## a type? Odd... seems like a bug to me... but what do I know? -jpr
+
+    if (defined $::param_type{$value} && $::param_type{$value} eq "m") {
         my $valueList = eval($::param{$value});
         return $valueList if (!($@) && ref($valueList) eq "ARRAY");
         die "Multi-list param '$value' eval() failure ('$@'); data/params is horked";
-- 
cgit v1.2.3-24-g4f1b