Unused var.

diff --git a/ext/NDBM_File/NDBM_File.xs b/ext/NDBM_File/NDBM_File.xs
index e3adf3f..dae199d 100644 (file)
--- a/ext/NDBM_File/NDBM_File.xs
+++ b/ext/NDBM_File/NDBM_File.xs
@@ -129,6 +129,8 @@ datum_key
 ndbm_NEXTKEY(db, key)
        NDBM_File       db
        datum_key       key = NO_INIT
+    CLEANUP:
+       PERL_UNUSED_VAR(key);
 
 #define ndbm_error(db)                         dbm_error(db->dbp)
 int