Fix Perl 5.14.0 warnings

qw() now warns when it is implicitly used as parenthesis, so adding parenthesis fixes the warning.
dreamwidth · Jan 3, 2013 · fae959c · fae959c
1 parent 596ae34
commit fae959c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/cgi-bin/DW/VirtualGift.pm b/cgi-bin/DW/VirtualGift.pm
@@ -1157,7 +1157,7 @@ sub display_vieweditlinks {
     delete $modes{delete} if $self->is_active;
 
     my $text = "";
-    foreach my $mode qw( view review delete ) {
+    foreach my $mode (qw( view review delete )) {
         next unless $modes{$mode};
         $text .= ' | ' if $text;
         $text .= "<a href='$linkroot?mode=$mode&id=$id'>$modes{$mode}</a>";

diff --git a/cgi-bin/LJ/Web.pm b/cgi-bin/LJ/Web.pm
@@ -3160,7 +3160,7 @@ LOGIN_BAR
     };
 
     # cycle through all possibilities, add the valid ones
-    foreach my $view_type qw( mine site light original ) {
+    foreach my $view_type (qw( mine site light original )) {
         # only want to offer this option if user is logged in and it's not their own journal, since
         # original will take care of that
         if ( $view_type eq "mine" and $current_style ne $view_type and $remote and not $remote->equals( $journal ) ) {