blob: 0b8d38b1827d29a71c00feb4890bb66e22e974aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
$NetBSD: patch-DSA.xs,v 1.1 2012/10/02 07:58:00 he Exp $
Croak in do_verify() if the openssl library returns an error,
similar to what is already done in verify().
--- DSA.xs.orig 2005-05-22 20:14:52.000000000 +0000
+++ DSA.xs
@@ -139,6 +139,8 @@ do_verify(dsa, dgst, sig)
CODE:
dgst_pv = SvPV(dgst, dgst_len);
RETVAL = DSA_do_verify(dgst_pv, dgst_len, sig, dsa);
+ if (RETVAL == -1)
+ croak("Error in DSA_do_verify: %s",ERR_error_string(ERR_get_error(), NULL));
OUTPUT:
RETVAL
|