[Perl-openssl-users] Issue with sign/verify - Crypt::OpenSSL::RSA

[Jonathan V. <jo...@2x...>]

Hi-

I'm trying to use Crypt::OpenSSL::RSA and running into some issues

Generating is fine:
	sub generate_rsa {
		my 	$rsa= Crypt::OpenSSL::RSA->generate_key(1024);
		return {
			'private'=> $rsa->get_private_key_string(),
			'public'=> $rsa->get_public_key_string(),
		}
	}

Signing is fine:
	sub sign_text_with_privatekey {
		my 	( $text , $privatekey , $publickey)= @_;
		my 	$rsa= Crypt::OpenSSL::RSA->new_private_key($privatekey);
		my 	$signature= $rsa->sign($text);
		return $signature;
	}

Verification is killing me though:
	sub verify_signature_with_text_and_publickey {
		my 	( $signature , $text , $publickey )= @_;
		my 	$rsa= Crypt::OpenSSL::RSA->new_public_key($publickey);
		if ( $rsa->verify( $text , $signature ) {
			return 1;
		}
		return 0;
	}
	
I'm going crazy on this.
No matter what I do, so long as $publickey and $signature are  
compatible, verification succeeds.

what am i missing?