1
0
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:
Simon Josefsson 2010-09-14 18:31:46 +00:00
parent 742a1c3c11
commit f0c5956de1

View File

@ -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 $_;
} }