From 207272adad58f4ee86f961367e56fd478c754b39 Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Sun, 1 Mar 2009 03:24:20 -0500
Subject: [PATCH] fix rounding issue.  Thanks, Richard K Darst!

---
 src/keytrans/pem2openpgp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
-- 
2.25.1