Fixing build bustage. Incorrect usage "foreach my $foo qw(bar baz)" where the qw...

diff --git a/userprefs.cgi b/userprefs.cgi
index 2cc2b0340bb4f0aeb1cdbd0d0cb004d92cb95785..3e4011201ac77f32c5e1040c8873c1401d117d16 100755 (executable)
--- 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" : "");
     }