In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/157486ae134392a41a6884224e32acc8dc9ed2f5?hp=ad1de9c6347c3e74fab7b1675e069dfc8b67d44c>
- Log ----------------------------------------------------------------- commit 157486ae134392a41a6884224e32acc8dc9ed2f5 Author: Nicholas Clark <[email protected]> Date: Thu Oct 21 12:18:35 2010 +0100 SDBM_File::{error,clearerr} can be implemented as XS ALIASes. ----------------------------------------------------------------------- Summary of changes: 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 23d86b5..0c139ff 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 -- Perl5 Master Repository
