Hexadecimal number > 0xffffffff non-portable

bprabhu17

Could someone please help me to resolve the following error.

Integer overflow in hexadecimal number at Keystore.pm line 1106.
Hexadecimal number > 0xffffffff non-portable Keystore.pm line 1106.

Thanks in advance

RonB

Can you post the complete line of code at line 1106?

What OS are you on?

What version of Perl are you using?

Do you get the same error from this test script?

Expand|Select|Wrap|Line Numbers

 #!/usr/bin/perl
 
use warnings;
 
print 0xffffffff, "\n";  # comment this line out if you receive the error
 
print 2**32, "\n";  # does this produce the same error?

bprabhu17

$ cat test.pl

Expand|Select|Wrap|Line Numbers

 
#!/usr/bin/perl
 
use warnings;
 
print 0xffffffff, "\n";  # comment this line out if you receive the error
 
print 2**32, "\n";  # does this produce the same error?

$

$ perl test.pl
4294967295
4294967296
$

$ perl -v

This is perl, v5.8.4 built for sun4-solaris-64int
(with 31 registered patches, see perl -V for more detail)

bprabhu17

this is from the keystore.pm

Expand|Select|Wrap|Line Numbers

 
    ####

    # serial number

    # extract hex certificate serial number (only required for -text format)

    #$certinfo->{SerialNumber} =~ s/.*\(0x(.*)\)/$1/;
 
    # store decimal serial number

    $certinfo->{Serial} = hex($certinfo->{SerialNumber});
 
    # pad with a leading zero if length is odd

    if (length($certinfo->{SerialNumber}) % 2)

    {

        $certinfo->{SerialNumber} = '0' . $certinfo->{SerialNumber};

    }

    # convert to upcase and insert colons to separate hex bytes

    $certinfo->{SerialNumber} = uc($certinfo->{SerialNumber});

    $certinfo->{SerialNumber} =~ s/(..)/$1:/g;

    $certinfo->{SerialNumber} =~ s/:$//;
 
    ####

RonB

Prior to the hex( ) command, what is the actual value of:
$certinfo->{SerialNumber}

If you uncomment this line, I'm willing to bet that the error goes away.
#$certinfo->{SerialNumber} =~ s/.*$0x(.*)$/$1/;

However, that may not give you the final results that you expect.

RonB

I think I found the issue. Your OS is 64 bit, but it appears that Perl was built for 32 bit.

You should be able to get around this, without recompiling Perl, by using Math::BigInt

Expand|Select|Wrap|Line Numbers

 use Math::BigInt;
 
$certinfo->{Serial} = Math::BigInt->new($certinfo->{SerialNumber})->as_hex;

Resource:
http://www.perlmonks.org/?node_id=616866

bprabhu17

Am sorry, still getting the same error.

Also, had attached the Keystore module.

Please rename Keystore.txt to Keystore.pm.

Thanks

RonB

We were posting about the same time, so you may have missed my last comment.

Try using Math::BigInt

RonB

Another resource for the solution.
http://www.perlmonks.org/?node_id=742688

bprabhu17

Hey many thanks,

Am not getting this error any more.

Thanks again.

numberwhun

bprabhu17, you need to please start using code tags when you are posting code in the forums. They are required around any code you post, that way we don't have to clean up behind you.

Regards,

Jeff

Hexadecimal number > 0xffffffff non-portable

re: Hexadecimal number > 0xffffffff non-portable

re: Hexadecimal number > 0xffffffff non-portable

re: Hexadecimal number > 0xffffffff non-portable

re: Hexadecimal number > 0xffffffff non-portable

re: Hexadecimal number > 0xffffffff non-portable

re: Hexadecimal number > 0xffffffff non-portable

re: Hexadecimal number > 0xffffffff non-portable

re: Hexadecimal number > 0xffffffff non-portable

re: Hexadecimal number > 0xffffffff non-portable

re: Hexadecimal number > 0xffffffff non-portable

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about