Merge pull request #26 from gisle/patch-1
Dan Brook [Mon, 17 Oct 2011 13:15:05 +0000 (06:15 -0700)]
Use of qw(...) as parentheses is deprecated

lib/Gitalist/Controller/Fragment/Ref.pm

index 8f58ce0..e76d11f 100644 (file)
@@ -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};
         };