Codebase list libcryptx-perl / 0b3277b
OpenSSL interoperability broken #15 - dsa part Karel Miko 7 years ago
1 changed file(s) with 3 addition(s) and 3 deletion(s). Raw diff Collapse all Expand all
+3
-3
inc/CryptX_PK_DSA.xs.inc less more
168168
169169 RETVAL = newSVpvn(NULL, 0); /* undef */
170170 if (strnEQ(type, "private", 7)) {
171 rv = dsa_export(out, &out_len, PK_PRIVATE, &self->key);
172 if (rv != CRYPT_OK) croak("FATAL: dsa_export(PK_PRIVATE) failed: %s", error_to_string(rv));
171 rv = dsa_export(out, &out_len, PK_PRIVATE|PK_STD, &self->key);
172 if (rv != CRYPT_OK) croak("FATAL: dsa_export(PK_PRIVATE|PK_STD) failed: %s", error_to_string(rv));
173173 RETVAL = newSVpvn((char*)out, out_len);
174174 }
175175 else if (strnEQ(type, "public", 6)) {
176 rv = dsa_export(out, &out_len, PK_PUBLIC, &self->key);
176 rv = dsa_export(out, &out_len, PK_PUBLIC|PK_STD, &self->key);
177177 if (rv != CRYPT_OK) croak("FATAL: dsa_export(PK_PUBLIC|PK_STD) failed: %s", error_to_string(rv));
178178 RETVAL = newSVpvn((char*)out, out_len);
179179 }