From: Gisle Aas <gisle@activestate.com>
Date: Sun, 16 Oct 2011 15:17:21 +0000 (+0300)
Subject: Avoid "Use of qw(...) as parentheses is deprecated" warning with perl-5.14
X-Git-Tag: 0.003006~6^2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FGitalist.git;a=commitdiff_plain;h=052d264e613cd70ca22e0b48f93cb6d7093995b2

Avoid "Use of qw(...) as parentheses is deprecated" warning with perl-5.14
---

diff --git a/lib/Gitalist/Controller/Fragment/Ref.pm b/lib/Gitalist/Controller/Fragment/Ref.pm
index 8f58ce0..e76d11f 100644
--- a/lib/Gitalist/Controller/Fragment/Ref.pm
+++ b/lib/Gitalist/Controller/Fragment/Ref.pm
@@ -16,7 +16,7 @@ sub base : Chained('/fragment/repository/find') PathPart('') CaptureArgs(0) {}
 sub _diff {
     my ($self, $c) = @_;
     my %diff_args = ( patch => 1 );
-    foreach my $arg qw/filename parent/ {
+    foreach my $arg (qw/filename parent/) {
         if (defined $c->stash->{$arg}) {
             $diff_args{$arg} = $c->stash->{$arg};
         };