From dc79c207099bffa90ce3ac0e6f06200781214108 Mon Sep 17 00:00:00 2001
From: Sitaram Chamarty <sitaram@atc.tcs.com>
Date: Tue, 15 Nov 2011 10:01:40 +0530
Subject: [PATCH] minor oops in previous commit (would fail on perl older than
 5.10 or so)

---
 src/sshkeys-lint | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/sshkeys-lint b/src/sshkeys-lint
index d7e3e18..bcb8f7b 100755
--- a/src/sshkeys-lint
+++ b/src/sshkeys-lint
@@ -115,7 +115,7 @@ sub user {
 }
 
 sub ak_comment {
-    my $_ = shift;
+    local $_ = shift;
     $in_gl_section = 1 if /^# gitolite start/;
     $in_gl_section = 0 if /^# gitolite end/;
     die "gitosis?  what's that?\n" if /^#.*gitosis/;
@@ -123,7 +123,7 @@ sub ak_comment {
 }
 
 sub fprint {
-    my $_ = shift;
+    local $_ = shift;
     my ($fh, $tempfn, $in);
     if (/ssh-(dss|rsa) /) {
         # an actual key was passed.  Since ssh-keygen requires an actual file,