Changeset 9466

Timestamp:

04/15/08 10:36:45 (5 years ago)

Author:

daisuke

Message:

lang/perl/Crypt-DH-GMP; call mpz_clear before Safefree

Files:

• lang/perl/Crypt-DH-GMP/trunk/GMP.xs (modified) (1 diff)

lang/perl/Crypt-DH-GMP/trunk/GMP.xs

@@ -127 +127 @@
         DH_gmp_t *dh;
     CODE:
+        mpz_clear(dh->p);
+        mpz_clear(dh->g);
+        mpz_clear(dh->pub_key);
+        mpz_clear(dh->priv_key);
         Safefree(dh);