Implement our own reset so it works properly.

MD6.xs

@@ -138,7 +138,7 @@ get_md6_ctx( pTHX_ SV * sv ) {
   return ( md6_state * ) 0;     /* some compilers insist on a return value */
 }
 
-static const char *
+static char *
 enc_hex( char *buf, const unsigned char *in, int bits ) {
   static const char hx[] = "0123456789abcdef";
   char *op = buf;
@@ -155,7 +155,7 @@ enc_hex( char *buf, const unsigned char *in, int bits ) {
   return buf;
 }
 
-static const char *
+static char *
 enc_base64( char *buf, const unsigned char *in, int bits ) {
   static const char b64[] =
       "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
@@ -280,6 +280,15 @@ DESTROY(context)
   CODE:
     Safefree(context);
 
+void
+reset(self)
+	SV* self
+  PREINIT:
+    md6_state* context = get_md6_ctx(aTHX_ self);
+  PPCODE:
+    MD6Init(context, context->d);
+    XSRETURN(1);  /* self */
+
 void
 add(self, ...)
 	SV* self

t/reset.t

@@ -0,0 +1,15 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Digest::MD6;
+use Test::More tests => 1;
+
+my $d1 = Digest::MD6->new( 384 )->add( 'foo' )->hexdigest;
+my $d2 = Digest::MD6->new( 384 )->add( 'bar' )->reset->add( 'foo' )
+ ->hexdigest;
+is $d1, $d2, 'reset';
+
+# vim:ts=2:sw=2:et:ft=perl
+