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

ssh-authkeys: remove needless map

Browse source 
someone reported an error on "my $_" (presumably old perl) but I now
realise the whole map is useless; both the lists concerned have already
been chomped.
This commit is contained in:
Sitaram Chamarty 2012-03-27 06:22:07 +05:30
parent 276900edbb
commit 5e11d104c7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/triggers/post-compile/ssh-authkeys
View file

@ -48,7 +48,7 @@ for my $f (@pubkeys) {
# dump it out # dump it out
if (@gl_keys) { if (@gl_keys) {
my $out = join( "\n", map { my $_ = $_; chomp($_); $_ } @non_gl, "# gitolite start", @gl_keys, "# gitolite end" ) . "\n"; my $out = join( "\n", @non_gl, "# gitolite start", @gl_keys, "# gitolite end" ) . "\n";
my $ak = slurp($akfile); my $ak = slurp($akfile);
_die "$akfile changed between start and end of this program!" if $ak ne $old_ak; _die "$akfile changed between start and end of this program!" if $ak ne $old_ak;