From 07d9826a90f7efb3d31f9001d5fb26d2db5511dc Mon Sep 17 00:00:00 2001
From: "myk%mozilla.org" <>
Date: Sun, 29 Sep 2002 02:14:07 +0000
Subject: Fixing build bustage.  Incorrect usage "foreach my $foo qw(bar baz)"
 where the qw construct needs to be surrounded by parentheses.

---
 userprefs.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'userprefs.cgi')

diff --git a/userprefs.cgi b/userprefs.cgi
index 2cc2b0340..3e4011201 100755
--- a/userprefs.cgi
+++ b/userprefs.cgi
@@ -239,7 +239,7 @@ sub SaveEmail {
         $updateString .= 'ExcludeSelf~';
     }
     
-    foreach my $flag qw(FlagRequestee FlagRequester) {
+    foreach my $flag (qw(FlagRequestee FlagRequester)) {
         $updateString .= "~$flag~" . (defined($::FORM{$flag}) ? "on" : "");
     }
     
-- 
cgit v1.2.3-24-g4f1b