deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

deal with a perl 5.14 deprecation on qw()

Browse source 
Apparently 5.14 deprecates using qw() as parentheses

(thanks to Benjamin Severs)
This commit is contained in:
Sitaram Chamarty 2011-08-04 21:21:43 +05:30
parent 817c1835ae
commit 66f2065098
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/gl-install
View file

@ -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";
}