From fae959c4fd21b43282b2addb2de4ffb102bda581 Mon Sep 17 00:00:00 2001
From: Mark Smith <mark@dreamwidth.org>
Date: Thu, 3 Jan 2013 03:07:16 +0000
Subject: [PATCH] Fix Perl 5.14.0 warnings

qw() now warns when it is implicitly used as parenthesis, so adding
parenthesis fixes the warning.
---
 cgi-bin/DW/VirtualGift.pm | 2 +-
 cgi-bin/LJ/Web.pm         | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cgi-bin/DW/VirtualGift.pm b/cgi-bin/DW/VirtualGift.pm
index a04552120e..e87b0b4915 100644
--- 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
index 03533c5439..932271254f 100644
--- 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 ) ) {