]> git.pld-linux.org Git - packages/ekg2.git/blob - openssl.patch
rebuild with perl 5.32
[packages/ekg2.git] / openssl.patch
1 --- ekg2-20180902/plugins/sim/simlite.c~        2018-08-01 15:34:40.000000000 +0200
2 +++ ekg2-20180902/plugins/sim/simlite.c 2018-09-20 20:44:14.370347788 +0200
3 @@ -185,7 +185,7 @@ char *sim_key_fingerprint(const char *ui
4         RSA *key = sim_key_read(uid, NULL);
5         unsigned char md_value[EVP_MAX_MD_SIZE], *buf, *newbuf;
6         char *result = NULL;
7 -       EVP_MD_CTX ctx;
8 +       EVP_MD_CTX *ctx;
9         unsigned int md_len;
10         int size, i;
11  
12 @@ -208,10 +208,14 @@ char *sim_key_fingerprint(const char *ui
13                 size = i2d_RSAPublicKey(key, &newbuf);
14         else
15                 size = i2d_RSAPrivateKey(key, &newbuf);
16 -       
17 -       EVP_DigestInit(&ctx, EVP_sha1());       
18 -       EVP_DigestUpdate(&ctx, buf, size);
19 -       EVP_DigestFinal(&ctx, md_value, &md_len);
20 +
21 +       ctx = EVP_MD_CTX_create();
22 +       if (!ctx)
23 +               return NULL;
24 +       EVP_DigestInit(ctx, EVP_sha1());        
25 +       EVP_DigestUpdate(ctx, buf, size);
26 +       EVP_DigestFinal(ctx, md_value, &md_len);
27 +       EVP_MD_CTX_free(ctx);
28  
29         free(buf);
30  
31
This page took 0.097791 seconds and 3 git commands to generate.