summaryrefslogtreecommitdiff
path: root/src/keytrans
diff options
context:
space:
mode:
Diffstat (limited to 'src/keytrans')
-rwxr-xr-xsrc/keytrans/pem2openpgp3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/keytrans/pem2openpgp b/src/keytrans/pem2openpgp
index 73becfe..8bf17fb 100755
--- a/src/keytrans/pem2openpgp
+++ b/src/keytrans/pem2openpgp
@@ -29,6 +29,7 @@ use Crypt::OpenSSL::Bignum;
use Crypt::OpenSSL::Bignum::CTX;
use Digest::SHA1;
use MIME::Base64;
+use POSIX;
## make sure all length() and substr() calls use bytes only:
use bytes;
@@ -329,7 +330,7 @@ sub read_mpi {
$bitlen = unpack('n', $bitlen);
$$readtally += 2;
- my $bytestoread = ($bitlen + 7)/8;
+ my $bytestoread = POSIX::floor(($bitlen + 7)/8);
my $ret;
read($instr, $ret, $bytestoread) or die "could not read MPI body.\n";
$$readtally += $bytestoread;