Index: contrib/pgcrypto/openssl.c
===================================================================
RCS file: /opt/cvs2/pgsql/contrib/pgcrypto/openssl.c,v
retrieving revision 1.13
diff -u -c -r1.13 openssl.c
*** contrib/pgcrypto/openssl.c	29 Nov 2003 22:39:28 -0000	1.13
--- contrib/pgcrypto/openssl.c	11 Mar 2005 15:39:34 -0000
***************
*** 73,80 ****
--- 73,87 ----
  digest_finish(PX_MD * h, uint8 *dst)
  {
  	EVP_MD_CTX *ctx = (EVP_MD_CTX *) h->p.ptr;
+ 	const EVP_MD *md = EVP_MD_CTX_md(ctx);
  
  	EVP_DigestFinal(ctx, dst, NULL);
+ 
+ 	/*
+ 	 * Some builds of 0.9.7x clear all of ctx in EVP_DigestFinal.
+ 	 * Fix it by reinitializing ctx.
+ 	 */
+ 	EVP_DigestInit(ctx, md);
  }
  
  static void