fix typo in dbm filters that caused odbm.t to fail

p4raw-id: //depot/perl@3344

diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs
index 0ab06ef..9ad794d 100644 (file)
--- a/ext/ODBM_File/ODBM_File.xs
+++ b/ext/ODBM_File/ODBM_File.xs
@@ -121,7 +121,7 @@ DESTROY(db)
        dbmrefcnt--;
        dbmclose();
 
-datum_key
+datum_value
 odbm_FETCH(db, key)
        ODBM_File       db
        datum_key       key
@@ -161,7 +161,7 @@ odbm_NEXTKEY(db, key)
                RETVAL = newSVsv(db->type) ;            \
            if (db->type && (code == &PL_sv_undef)) {   \
                 SvREFCNT_dec(db->type) ;               \
-               db->type = NULL ;                       \
+               db->type = Nullsv ;                     \
            }                                           \
            else if (code) {                            \
                if (db->type)                           \

diff --git a/t/lib/odbm.t b/t/lib/odbm.t
index c5458d5..0ef2592 100755 (executable)
--- a/t/lib/odbm.t
+++ b/t/lib/odbm.t
@@ -215,6 +215,8 @@ EOM
    sub checkOutput
    {
        my($fk, $sk, $fv, $sv) = @_ ;
+       print "# ", join('|', $fetch_key, $fk, $store_key, $sk,
+                       $fetch_value, $fv, $store_value, $sv, $_), "\n";
        return
            $fetch_key eq $fk && $store_key eq $sk && 
           $fetch_value eq $fv && $store_value eq $sv &&