From 13330d4dbde017a5cb6fe72e1a42ab42c9e98501 Mon Sep 17 00:00:00 2001
From: Steve Hay <SteveHay@planit.com>
Date: Tue, 5 Jul 2005 10:32:08 +0000
Subject: [PATCH] Remove an unreferenced local variable in Digest-MD5

p4raw-id: //depot/perl@25080
---
 ext/Digest/MD5/MD5.pm | 2 +-
 ext/Digest/MD5/MD5.xs | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/ext/Digest/MD5/MD5.pm b/ext/Digest/MD5/MD5.pm
index 8e8bc49..87aa775 100644
--- a/ext/Digest/MD5/MD5.pm
+++ b/ext/Digest/MD5/MD5.pm
@@ -3,7 +3,7 @@ package Digest::MD5;
 use strict;
 use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = '2.33';  # $Date: 2003/12/07 08:40:18 $
+$VERSION = '2.33_01';  # $Date: 2003/12/07 08:40:18 $
 
 require Exporter;
 *import = \&Exporter::import;
diff --git a/ext/Digest/MD5/MD5.xs b/ext/Digest/MD5/MD5.xs
index a89bbd7..100c597 100644
--- a/ext/Digest/MD5/MD5.xs
+++ b/ext/Digest/MD5/MD5.xs
@@ -590,7 +590,6 @@ clone(self)
 	char *myname = sv_reftype(SvRV(self),TRUE);
 	MD5_CTX* context;
     PPCODE:
-	STRLEN my_na;
 	New(55, context, 1, MD5_CTX);
 	ST(0) = sv_newmortal();
 	sv_setref_pv(ST(0), myname , (void*)context);
-- 
2.7.4