This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
SDBM_File: fix 'set but not used' warning
authorDavid Mitchell <davem@iabyn.com>
Mon, 18 Nov 2013 15:07:23 +0000 (15:07 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 18 Nov 2013 17:14:22 +0000 (17:14 +0000)
the NEXTKEY() method has a key arg, but sdbm_nextkey() doesn't.
So don't bother mapping the key SV arg to a datum_key type.

ext/SDBM_File/SDBM_File.pm
ext/SDBM_File/SDBM_File.xs

index c989ceb..d369b54 100644 (file)
@@ -7,7 +7,7 @@ require Tie::Hash;
 require XSLoader;
 
 our @ISA = qw(Tie::Hash);
-our $VERSION = "1.09";
+our $VERSION = "1.10";
 
 XSLoader::load();
 
index 291e41b..2da097e 100644 (file)
@@ -101,7 +101,6 @@ sdbm_FIRSTKEY(db)
 datum_key
 sdbm_NEXTKEY(db, key)
        SDBM_File       db
-       datum_key       key;
 
 int
 sdbm_error(db)