From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 9 May 1999 03:20:06 +0000 (+0000)
Subject: fix typo in dbm filters that caused odbm.t to fail
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1b882d32f692ce67c7b4fa7e0684fcc65add31dc;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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 &&