Silence compiler warning in SDBM_File

Unless I'm missing something it looks like "key" actually is used,
and the "key = key" assignment causes bcc32 to complain about use
before definition!

p4raw-id: //depot/perl@24994

diff --git a/ext/SDBM_File/SDBM_File.xs b/ext/SDBM_File/SDBM_File.xs
index 3bf3c2b..24b2b83 100644 (file)
--- a/ext/SDBM_File/SDBM_File.xs
+++ b/ext/SDBM_File/SDBM_File.xs
@@ -101,7 +101,7 @@ sdbm_FIRSTKEY(db)
 datum_key
 sdbm_NEXTKEY(db, key)
        SDBM_File       db
-       datum_key       key = key; /* never used -  silence picky compilers. */
+       datum_key       key;
 
 int
 sdbm_error(db)