From 66f2065098576dcbd4b4c4fedef67d15121fb1cc Mon Sep 17 00:00:00 2001 From: Sitaram Chamarty Date: Thu, 4 Aug 2011 21:21:43 +0530 Subject: [PATCH] deal with a perl 5.14 deprecation on qw() Apparently 5.14 deprecates using qw() as parentheses (thanks to Benjamin Severs) --- src/gl-install | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/gl-install b/src/gl-install index cd1702a..231a37d 100755 --- a/src/gl-install +++ b/src/gl-install @@ -63,7 +63,7 @@ umask($REPO_UMASK); wrap_mkdir($REPO_BASE); wrap_mkdir($GL_ADMINDIR, 0700); # mkdir $GL_ADMINDIR's subdirs -for my $dir qw(conf doc keydir logs src hooks hooks/common hooks/gitolite-admin) { +for my $dir (qw(conf doc keydir logs src hooks hooks/common hooks/gitolite-admin)) { # some of them will stay empty; too lazy to fix right now ;-) wrap_mkdir("$GL_ADMINDIR/$dir", 0700); } @@ -112,7 +112,7 @@ if ( -d "gitolite-admin.git/hooks" ) { } # fixup program renames -for my $oldname qw(pta-hook.sh conf-convert.pl 00-easy-install.sh 99-emergency-addkey.sh gl-emergency-addkey install.pl update-hook.pl hooks/update ga-post-update-hook VERSION) { +for my $oldname (qw(pta-hook.sh conf-convert.pl 00-easy-install.sh 99-emergency-addkey.sh gl-emergency-addkey install.pl update-hook.pl hooks/update ga-post-update-hook VERSION)) { unlink "$GL_ADMINDIR/src/$oldname"; unlink "$ENV{HOME}/gitolite-install/src/$oldname"; }