projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
PATCH: make DBM*_File modules sub-classable
[p5sagit/p5-mst-13.2.git]
/
ext
/
ODBM_File
/
ODBM_File.xs
diff --git
a/ext/ODBM_File/ODBM_File.xs
b/ext/ODBM_File/ODBM_File.xs
index
d23b318
..
b57e560
100644
(file)
--- a/
ext/ODBM_File/ODBM_File.xs
+++ b/
ext/ODBM_File/ODBM_File.xs
@@
-73,7
+73,7
@@
odbm_TIEHASH(dbtype, filename, flags, mode)
}
RETVAL = (void*)(dbminit(filename) >= 0 ? &dbmrefcnt : 0);
ST(0) = sv_mortalcopy(&sv_undef);
- sv_setptrobj(ST(0), RETVAL, "ODBM_File");
+ sv_setptrobj(ST(0), RETVAL, dbtype);
}
void