Fix ordering in perl subscription_list

[blerg.git] / common / md5.c

diff --git a/common/md5.c b/common/md5.c
index f19672e..ffbc215 100644 (file)
--- a/common/md5.c
+++ b/common/md5.c
@@ -257,7 +257,7 @@ void MD5Final(unsigned char digest[16],
     MD5Transform(ctx->buf, (uint32_t *) ctx->in);
     byteReverse((unsigned char *) ctx->buf, 4);
     memcpy(digest, ctx->buf, 16);
-    memset(ctx, 0, sizeof(ctx));        /* In case it's sensitive */
+    memset(ctx, 0, sizeof(struct MD5Context));        /* In case it's sensitive */
 }
 
 /* end of md5.c */