projects
/
oweals
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
In RSA, DSA, DH, and RAND - if the "***_new()" function fails because the
[oweals/openssl.git]
/
perl
/
openssl_bn.xs
diff --git
a/perl/openssl_bn.xs
b/perl/openssl_bn.xs
index 359e9066519e380545986d92cb1b04300f87a1a3..6817cfb740ea3ebfd7eabfe8dfaf5fb08e8eb4f9 100644
(file)
--- 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_
MODULE = OpenSSL::BN PACKAGE = OpenSSL::BN PREFIX = p5_BN_
+PROTOTYPES: ENABLE
VERSIONCHECK: DISABLE
void
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);
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)
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);
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)
void
p5_BN_hex2bn(a)
@@
-207,9
+208,9
@@
p5_BN_bn2hex(a)
RETVAL=newSVpv("",0);
i=strlen(ptr);
SvGROW(RETVAL,i+1);
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);
SvCUR_set(RETVAL,i);
-
F
ree(ptr);
+
OPENSSL_f
ree(ptr);
OUTPUT:
RETVAL
OUTPUT:
RETVAL
@@
-225,9
+226,9
@@
p5_BN_bn2dec(a)
RETVAL=newSVpv("",0);
i=strlen(ptr);
SvGROW(RETVAL,i+1);
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);
SvCUR_set(RETVAL,i);
-
F
ree(ptr);
+
OPENSSL_f
ree(ptr);
OUTPUT:
RETVAL
OUTPUT:
RETVAL