diff options
author | 2020-07-30 14:22:34 -0400 | |
---|---|---|
committer | 2021-02-12 21:19:47 +0530 | |
commit | 828152dc7f3ad421ff1eb50aeb982be664c95039 (patch) | |
tree | 963e577fa36ed418493bf5e3f52a3e922666e47f | |
parent | v3.6.12 (diff) | |
download | gitolite-gentoo-828152dc7f3ad421ff1eb50aeb982be664c95039.tar.gz gitolite-gentoo-828152dc7f3ad421ff1eb50aeb982be664c95039.tar.bz2 gitolite-gentoo-828152dc7f3ad421ff1eb50aeb982be664c95039.zip |
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
```
-rwxr-xr-x | contrib/commands/ukm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/commands/ukm b/contrib/commands/ukm index 3683154..4bb4f3e 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/; } |