From 81ccd2ae7adfc2ab6af37753d817200203d5137b Mon Sep 17 00:00:00 2001
From: Nick <nguenthe@uwaterloo.ca>
Date: Thu, 30 Jul 2020 14:22:34 -0400
Subject: [PATCH] Update ukm for modern perl

with perl 5.32.0 trying to use ukm gives:

```
$ ssh gitolite@localhost ukm
Enter passphrase for key '/home/kousu/.ssh/id_rsa':
FATAL: Can't use global $_ in "my" at /usr/lib/gitolite/commands/ukm line 296, near "($_"
Execution of /usr/lib/gitolite/commands/ukm aborted due to compilation errors.
```

This fixes it

```
$ ssh gitolite@localhost ukm list
Enter passphrase for key '/home/kousu/.ssh/id_rsa':
Hello alice, you manage the following keys:
fingerprint                                     userid keyid
SHA256:VxHhqhOq5GxpPPUrYMeFMly4Mdc3YlP40qkLX4gr5fI alice  alice
```
---
 contrib/commands/ukm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/commands/ukm b/contrib/commands/ukm
index 3683154b9..4bb4f3eb2 100755
--- a/contrib/commands/ukm
+++ b/contrib/commands/ukm
@@ -293,7 +293,7 @@ sub sanitize_pubkeypath {
 # This function is only relavant for guest key managers.
 # It returns true if the pattern is OK and false otherwise.
 sub required_guest_keyid {
-    my ($_) = @_;
+    local ($_) = @_;
     /$required_guest_pattern/ and ! /$forbidden_guest_pattern/;
 }