projects
/
catagits/Gitalist.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(from parent 1:
2db4bce
)
Avoid "Use of qw(...) as parentheses is deprecated" warning with perl-5.14
Gisle Aas [Sun, 16 Oct 2011 15:17:21 +0000 (18:17 +0300)]
lib/Gitalist/Controller/Fragment/Ref.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/Gitalist/Controller/Fragment/Ref.pm
b/lib/Gitalist/Controller/Fragment/Ref.pm
index
8f58ce0
..
e76d11f
100644
(file)
--- 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};
};