diff options
| -rw-r--r-- | ext/SDBM_File/SDBM_File.xs | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/ext/SDBM_File/SDBM_File.xs b/ext/SDBM_File/SDBM_File.xs index 23d86b5717..0c139fffa5 100644 --- a/ext/SDBM_File/SDBM_File.xs +++ b/ext/SDBM_File/SDBM_File.xs @@ -106,20 +106,15 @@ sdbm_NEXTKEY(db, key) int sdbm_error(db) SDBM_File db + ALIAS: + sdbm_clearerr = 1 + PREINIT: + dXSI32; CODE: - RETVAL = sdbm_error(db->dbp) ; - OUTPUT: - RETVAL - -int -sdbm_clearerr(db) - SDBM_File db - CODE: - RETVAL = sdbm_clearerr(db->dbp) ; + RETVAL = ix ? sdbm_clearerr(db->dbp) : sdbm_error(db->dbp); OUTPUT: RETVAL - SV * filter_fetch_key(db, code) SDBM_File db |