diff options
author | David Mitchell <davem@iabyn.com> | 2013-11-18 15:07:23 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2013-11-18 17:14:22 +0000 |
commit | 48ece0902e4df68650e04e671ee4574e9d25ca80 (patch) | |
tree | 59fd131031322df23317a02bb84cf07b178e8df0 | |
parent | 63d83481e2cd52a64f36a54ea50d29ca81aca410 (diff) | |
download | perl-48ece0902e4df68650e04e671ee4574e9d25ca80.tar.gz |
SDBM_File: fix 'set but not used' warning
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.
-rw-r--r-- | ext/SDBM_File/SDBM_File.pm | 2 | ||||
-rw-r--r-- | ext/SDBM_File/SDBM_File.xs | 1 |
2 files changed, 1 insertions, 2 deletions
diff --git a/ext/SDBM_File/SDBM_File.pm b/ext/SDBM_File/SDBM_File.pm index c989ceb6f4..d369b54921 100644 --- a/ext/SDBM_File/SDBM_File.pm +++ b/ext/SDBM_File/SDBM_File.pm @@ -7,7 +7,7 @@ require Tie::Hash; require XSLoader; our @ISA = qw(Tie::Hash); -our $VERSION = "1.09"; +our $VERSION = "1.10"; XSLoader::load(); diff --git a/ext/SDBM_File/SDBM_File.xs b/ext/SDBM_File/SDBM_File.xs index 291e41bcd6..2da097ecd1 100644 --- a/ext/SDBM_File/SDBM_File.xs +++ b/ext/SDBM_File/SDBM_File.xs @@ -101,7 +101,6 @@ sdbm_FIRSTKEY(db) datum_key sdbm_NEXTKEY(db, key) SDBM_File db - datum_key key; int sdbm_error(db) |