From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 21 Oct 2010 11:18:35 +0000 (+0100)
Subject: SDBM_File::{error,clearerr} can be implemented as XS ALIASes.
X-Git-Tag: accepted/trunk/20130322.191538~7268
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=157486ae134392a41a6884224e32acc8dc9ed2f5;p=platform%2Fupstream%2Fperl.git

SDBM_File::{error,clearerr} can be implemented as XS ALIASes.
---

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