diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-09 03:20:06 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-09 03:20:06 +0000 |
| commit | 1b882d32f692ce67c7b4fa7e0684fcc65add31dc (patch) | |
| tree | a9149363303d03d2c7bbf8909de84607c47c8180 /ext/ODBM_File | |
| parent | 4068bd03d5fe1d4ce94ac9d57fdb058c7832a3f0 (diff) | |
| download | perl-1b882d32f692ce67c7b4fa7e0684fcc65add31dc.tar.gz | |
fix typo in dbm filters that caused odbm.t to fail
p4raw-id: //depot/perl@3344
Diffstat (limited to 'ext/ODBM_File')
| -rw-r--r-- | ext/ODBM_File/ODBM_File.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs index 0ab06ef6b1..9ad794da89 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) \ |