liqpay / sdk-perl Goto Github PK

I've found bug in Liqpay.pm.
You should add this string:
$payment->{public_key} = $self->{public_key};
before this string:
my $data = encode_base64(encode_json($payment),'');

sub cnb_signature { my ($self,$payment) = @_; my $signature; $payment->{public_key} = $self->{public_key}; my $data = encode_base64(encode_json($payment),''); $signature = encode_base64(sha1($self->{private_key}.$data.$self->{private_key}),''); return $signature; }
Возвращает не корректный ключ.
например, сигнатура сервера: ZdfHoYYbtQ6qswZzapYwRsm+q5I=
и если использовать этот медот то клиент генерирует: ZdfHoYYbtQ6qswZzapYwRsm+q5I
А вот так все как положено
return $signature."=";