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