mirror of
https://github.com/Yubico/yubikey-ksm.git
synced 2025-02-07 18:54:15 +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
|
#!/usr/bin/perl
|
||||||
|
|
||||||
# Written by Simon Josefsson <simon@josefsson.org>.
|
# Written by Simon Josefsson <simon@josefsson.org>.
|
||||||
# Copyright (c) 2009 Yubico AB
|
# Copyright (c) 2009, 2010 Yubico AB
|
||||||
# All rights reserved.
|
# All rights reserved.
|
||||||
#
|
#
|
||||||
# Redistribution and use in source and binary forms, with or without
|
# Redistribution and use in source and binary forms, with or without
|
||||||
@ -74,7 +74,7 @@ while ($ARGV[0] =~ m/^-(.*)/) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
sub hex2modhex {
|
sub hex2modhex {
|
||||||
my $_ = shift;
|
$_ = shift;
|
||||||
tr/0123456789abcdef/cbdefghijklnrtuv/;
|
tr/0123456789abcdef/cbdefghijklnrtuv/;
|
||||||
return $_;
|
return $_;
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user