--- Digest-Hashcash/Hashcash.xs	2003/09/07 00:58:23	1.2
+++ Digest-Hashcash/Hashcash.xs	2003/09/11 06:20:26	1.3
@@ -326,6 +326,7 @@
 NV
 _estimate_rounds ()
 	CODE:
+{
         char data[40];
         NVTime nvtime = get_nvtime ();
         NV t1, t2, t;
@@ -350,12 +351,14 @@
         } while (t == t2);
 
         RETVAL = (NV)count / (t2 - t1);
+}
         OUTPUT:
         RETVAL
 
 SV *
 _gentoken (int size, IV timestamp, char *resource, char *trial = "", int extrarand = 0)
 	CODE:
+{
         SHA_INFO ctx1, ctx;
         char *token, *seq, *s;
         int toklen, i;
@@ -412,12 +415,14 @@
           }
 
         RETVAL = newSVpvn (token, toklen);
+}
 	OUTPUT:
         RETVAL
 
 int
 _prefixlen (SV *tok)
 	CODE:
+{
         STRLEN toklen;
         char *token = SvPV (tok, toklen);
         SHA_INFO ctx;
@@ -425,6 +430,7 @@
         sha_init (&ctx);
         sha_update (&ctx, token, toklen);
         RETVAL = sha_final (&ctx);
+}
 	OUTPUT:
 	RETVAL