From: Steve Hay <SteveHay@planit.com>
Date: Tue, 5 Jul 2005 10:32:08 +0000 (+0000)
Subject: Remove an unreferenced local variable in Digest-MD5
X-Git-Tag: accepted/trunk/20130322.191538~20176
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=13330d4dbde017a5cb6fe72e1a42ab42c9e98501;p=platform%2Fupstream%2Fperl.git

Remove an unreferenced local variable in Digest-MD5

p4raw-id: //depot/perl@25080
---

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);