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_cipher.xs
diff --git
a/perl/openssl_cipher.xs
b/perl/openssl_cipher.xs
index e9ff2a8f7905c67bb39746cad142777119b00e5e..580620ffbc60bc8a8d9a2e7200471d331c9b597f 100644
(file)
--- a/
perl/openssl_cipher.xs
+++ b/
perl/openssl_cipher.xs
@@
-20,9
+20,9
@@
p5_EVP_C_new(...)
char *name;
PPCODE:
if ((items == 1) && SvPOK(ST(0)))
char *name;
PPCODE:
if ((items == 1) && SvPOK(ST(0)))
- name=SvPV
(ST(0),na
);
+ name=SvPV
_nolen(ST(0)
);
else if ((items == 2) && SvPOK(ST(1)))
else if ((items == 2) && SvPOK(ST(1)))
- name=SvPV
(ST(1),na
);
+ name=SvPV
_nolen(ST(1)
);
else
croak("Usage: OpenSSL::Cipher::new(type)");
PUSHs(sv_newmortal());
else
croak("Usage: OpenSSL::Cipher::new(type)");
PUSHs(sv_newmortal());
@@
-112,7
+112,7
@@
p5_EVP_C_cipher(ctx,in)
CODE:
RETVAL=newSVpv("",0);
SvGROW(RETVAL,in.dsize+EVP_CIPHER_CTX_block_size(ctx)+1);
CODE:
RETVAL=newSVpv("",0);
SvGROW(RETVAL,in.dsize+EVP_CIPHER_CTX_block_size(ctx)+1);
- EVP_Cipher(ctx,SvPV
(RETVAL,na
),in.dptr,in.dsize);
+ EVP_Cipher(ctx,SvPV
_nolen(RETVAL
),in.dptr,in.dsize);
SvCUR_set(RETVAL,in.dsize);
OUTPUT:
RETVAL
SvCUR_set(RETVAL,in.dsize);
OUTPUT:
RETVAL
@@
-126,7
+126,7
@@
p5_EVP_C_update(ctx, in)
CODE:
RETVAL=newSVpv("",0);
SvGROW(RETVAL,in.dsize+EVP_CIPHER_CTX_block_size(ctx)+1);
CODE:
RETVAL=newSVpv("",0);
SvGROW(RETVAL,in.dsize+EVP_CIPHER_CTX_block_size(ctx)+1);
- EVP_CipherUpdate(ctx,SvPV
(RETVAL,na
),&i,in.dptr,in.dsize);
+ EVP_CipherUpdate(ctx,SvPV
_nolen(RETVAL
),&i,in.dptr,in.dsize);
SvCUR_set(RETVAL,i);
OUTPUT:
RETVAL
SvCUR_set(RETVAL,i);
OUTPUT:
RETVAL
@@
-139,7
+139,7
@@
p5_EVP_C_final(ctx)
CODE:
RETVAL=newSVpv("",0);
SvGROW(RETVAL,EVP_CIPHER_CTX_block_size(ctx)+1);
CODE:
RETVAL=newSVpv("",0);
SvGROW(RETVAL,EVP_CIPHER_CTX_block_size(ctx)+1);
- if (!EVP_CipherFinal(ctx,SvPV
(RETVAL,na
),&i))
+ if (!EVP_CipherFinal(ctx,SvPV
_nolen(RETVAL
),&i))
sv_setpv(RETVAL,"BAD DECODE");
else
SvCUR_set(RETVAL,i);
sv_setpv(RETVAL,"BAD DECODE");
else
SvCUR_set(RETVAL,i);