Changeset 9465

Timestamp:

04/15/08 10:31:47 (5 years ago)

Author:

daisuke

Message:

lang/perl/Crypt-DH-GMP; make sure to pass a pointer

Files:

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

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

@@ -60 +60 @@
         } else {
             mpz_init(ptr->priv_key);
-            DH_mpz_rand_set(ptr->priv_key);
+            DH_mpz_rand_set(&(ptr->priv_key));
         }