Bug #115918 for Digest-SHA: Digest::SHA's hmac_sha256_base64 is wrong

> Greetings, > > This message has been automatically generated in response to the > creation of a trouble ticket regarding: > "Digest::SHA's hmac_sha256_base64 is wrong", > a summary of which appears below. > > There is no need to reply to this message right now. Your ticket has been > assigned an ID of [rt.cpan.org #115918]. Your ticket is accessible > on the web at: > > https://rt.cpan.org/Ticket/Display.html?id=115918 > > Please include the string: > > [rt.cpan.org #115918] > > in the subject line of all future correspondence about this issue. To do so, > you may reply to this message. > > Thank you, > bug-Digest-SHA@rt.cpan.org > > ------------------------------------------------------------------------- > hmac_sha256_base64 is missing a trailing equals sign. > > Example program: > > #!/usr/bin/perl > > use strict; > use warnings; > > use MIME::Base64 qw(encode_base64); > use Digest::SHA qw(hmac_sha256 hmac_sha256_base64); > > my $key = 'foo'; > my $data = 'hello world'; > > print "hmac_sha256_base64: " . hmac_sha256_base64($data, $key) . "\n"; > print "encode_base64(hmac_sha256): " . encode_base64(hmac_sha256($data, > $key)) . "\n"; > > Output: > > hmac_sha256_base64: jvVS287gOBboArZDFbSGoJkwJBVkIGt4nprJe1BOzoo > encode_base64(hmac_sha256): jvVS287gOBboArZDFbSGoJkwJBVkIGt4nprJe1BOzoo= > > > I haven't yet tried to track down the source of the problem. > > James