[Perl-openssl-checkins] Crypt/OpenSSL/RSA typemap,1.4,1.5

[<iro...@us...>]

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