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

View File

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