From 5e11d104c7db3b1a68445c24d6ec8b2feb91c2c8 Mon Sep 17 00:00:00 2001
From: Sitaram Chamarty <sitaram@atc.tcs.com>
Date: Tue, 27 Mar 2012 06:22:07 +0530
Subject: [PATCH] ssh-authkeys: remove needless map

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.
---
 src/triggers/post-compile/ssh-authkeys | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/triggers/post-compile/ssh-authkeys b/src/triggers/post-compile/ssh-authkeys
index 5bfb4a8..55e06aa 100755
--- a/src/triggers/post-compile/ssh-authkeys
+++ b/src/triggers/post-compile/ssh-authkeys
@@ -48,7 +48,7 @@ for my $f (@pubkeys) {
 
 # dump it out
 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);
     _die "$akfile changed between start and end of this program!" if $ak ne $old_ak;