Update of /cvsroot/perl-openssl/Crypt/OpenSSL/RSA
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22782
Modified Files:
typemap
Log Message:
insist that an rsa arg ISA Crypt::OpenSSL::RSA object
Index: typemap
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/typemap,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** typemap 16 Feb 2004 04:53:57 -0000 1.4
--- typemap 19 Feb 2004 15:59:25 -0000 1.5
***************
*** 5,10 ****
INPUT
O_OBJECT
! if( ! SvROK( $arg ) ) { croak( \"argument is not a ${type} object\" ); }
! $var = (${type}) SvIV( SvRV( $arg ) );
OUTPUT
--- 5,13 ----
INPUT
O_OBJECT
! if (!(SvROK($arg) && sv_derived_from($arg, PACKAGE_NAME)))
! {
! croak(\"argument is not a ${type} object\");
! }
! $var = (${type}) SvIV(SvRV($arg));
OUTPUT
|
