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

diff --git a/userprefs.cgi b/userprefs.cgi
index 1d4be2a780a2a467a23907bfe7f79c400a369213..2cc2b0340bb4f0aeb1cdbd0d0cb004d92cb95785 100755 (executable)
--- a/userprefs.cgi
+++ b/userprefs.cgi
@@ -207,7 +207,7 @@ sub DoEmail {
         $vars->{'excludeself'} = 0;
     }
     
-    foreach my $flag qw(FlagRequestee FlagRequester) {
+    foreach my $flag (qw(FlagRequestee FlagRequester)) {
         $vars->{$flag} = 
           !exists($emailflags{$flag}) || $emailflags{$flag} eq 'on';
     }