mirror of
https://github.com/Yubico/yubikey-ksm.git
synced 2025-01-31 16:52:12 +01:00
Fix warning. Issue #3 reported by toddejohnson.
This commit is contained in:
parent
742a1c3c11
commit
f0c5956de1
@ -1,7 +1,7 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
# Written by Simon Josefsson <simon@josefsson.org>.
|
||||
# Copyright (c) 2009 Yubico AB
|
||||
# Copyright (c) 2009, 2010 Yubico AB
|
||||
# All rights reserved.
|
||||
#
|
||||
# Redistribution and use in source and binary forms, with or without
|
||||
@ -74,7 +74,7 @@ while ($ARGV[0] =~ m/^-(.*)/) {
|
||||
}
|
||||
|
||||
sub hex2modhex {
|
||||
my $_ = shift;
|
||||
$_ = shift;
|
||||
tr/0123456789abcdef/cbdefghijklnrtuv/;
|
||||
return $_;
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user