diff options
| author | Richard Levitte <levitte@openssl.org> | 2001-02-19 09:29:53 +0000 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2001-02-19 09:29:53 +0000 |
| commit | 95ffe86dbcdaab3db70eaf082f7975166f982fcc (patch) | |
| tree | 47e77808a0f213708fe35e6824cb3922dc8db817 /perl/openssl_bn.xs | |
| parent | 87b79c3ef3f05e8048c762c2d214b85180e00567 (diff) | |
| download | openssl-95ffe86dbcdaab3db70eaf082f7975166f982fcc.tar.gz | |
Perl code patch contributed by "Kurt J. Pires" <kjpires@iat.com>
His own words are:
The patch adds no new functionality (other than a simple test package)
to the libraries, but it allows them to be compiled with Perl5.6.0.
It has only been tested under "Red Hat Linux release 7.0 (Guinness)"
with the unpatched verion of OpenSSL 0.9.6 released last September.
Diffstat (limited to 'perl/openssl_bn.xs')
| -rw-r--r-- | perl/openssl_bn.xs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl/openssl_bn.xs b/perl/openssl_bn.xs index f79bf879e8..6817cfb740 100644 --- a/perl/openssl_bn.xs +++ b/perl/openssl_bn.xs @@ -142,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) @@ -168,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) @@ -208,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 @@ -226,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 |