Stringify return from get_mp_int() method.

Author: Mutant

lib/Crypt/OpenPGP/Buffer.pm

@@ -9,7 +9,8 @@ sub get_mp_int {
     my $bytes = int(($bits + 7) / 8);
     my $off = $buf->{offset};
     $buf->{offset} += $bytes;
-    bin2mp($buf->bytes($off, $bytes));
+    my $int = bin2mp($buf->bytes($off, $bytes));
+    "$int";
 }
 
 sub put_mp_int {

t/02-buffer.t

@@ -1,10 +1,10 @@
 use strict;
 use Test::More tests => 6;
 
-use Math::Pari;
+use Math::BigInt;
 use Crypt::OpenPGP::Buffer;
 
-my @num = map { PARI( $_ ) } qw( 34093840983 99999999999999999999 1 );
+my @num = map { Math::BigInt->new( $_ ) } qw( 34093840983 99999999999999999999 1 );
 
 for my $n ( @num ) {
     my $buffer = Crypt::OpenPGP::Buffer->new;