X-Git-Url: https://git.librecmc.org/?a=blobdiff_plain;f=perl%2Fopenssl_bn.xs;h=6817cfb740ea3ebfd7eabfe8dfaf5fb08e8eb4f9;hb=7ae551fd03b447e41d3a74e803a711350383ebc4;hp=359e9066519e380545986d92cb1b04300f87a1a3;hpb=8073036dd62848b616c6a817c155c3255074ec83;p=oweals%2Fopenssl.git

diff --git a/perl/openssl_bn.xs b/perl/openssl_bn.xs
index 359e906651..6817cfb740 100644
--- a/perl/openssl_bn.xs
+++ b/perl/openssl_bn.xs
@@ -72,6 +72,7 @@ char *arg;
 
 MODULE =  OpenSSL::BN	PACKAGE = OpenSSL::BN	PREFIX = p5_BN_
 
+PROTOTYPES: ENABLE
 VERSIONCHECK: DISABLE
 
 void
@@ -141,7 +142,7 @@ p5_BN_bn2bin(a)
 		i=BN_num_bytes(a)+2;
 		sv_setpvn(ST(0),"",1);
 		SvGROW(ST(0),i+1);
-		SvCUR_set(ST(0),BN_bn2bin(a,SvPV(ST(0),na)));
+		SvCUR_set(ST(0),BN_bn2bin(a,SvPV_nolen(ST(0))));
 
 void
 p5_BN_mpi2bn(a)
@@ -167,7 +168,7 @@ p5_BN_bn2mpi(a)
 		i=BN_bn2mpi(a,NULL);
 		sv_setpvn(ST(0),"",1);
 		SvGROW(ST(0),i+1);
-		SvCUR_set(ST(0),BN_bn2mpi(a,SvPV(ST(0),na)));
+		SvCUR_set(ST(0),BN_bn2mpi(a,SvPV_nolen(ST(0))));
 
 void
 p5_BN_hex2bn(a)
@@ -207,9 +208,9 @@ p5_BN_bn2hex(a)
 		RETVAL=newSVpv("",0);
 		i=strlen(ptr);
 		SvGROW(RETVAL,i+1);
-		memcpy(SvPV(RETVAL,na),ptr,i+1);
+		memcpy(SvPV_nolen(RETVAL),ptr,i+1);
 		SvCUR_set(RETVAL,i);
-		Free(ptr);
+		OPENSSL_free(ptr);
 	OUTPUT:
 		RETVAL
 
@@ -225,9 +226,9 @@ p5_BN_bn2dec(a)
 		RETVAL=newSVpv("",0);
 		i=strlen(ptr);
 		SvGROW(RETVAL,i+1);
-		memcpy(SvPV(RETVAL,na),ptr,i+1);
+		memcpy(SvPV_nolen(RETVAL),ptr,i+1);
 		SvCUR_set(RETVAL,i);
-		Free(ptr);
+		OPENSSL_free(ptr);
 	OUTPUT:
 		RETVAL