From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 5 Jul 1999 16:34:06 +0000 (+0000)
Subject: no such thing as gdbm_clearerr() (from Andy Dougherty)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0bd6a1141ac9d891d8d30106ffc0f5c4052caaba;p=p5sagit%2Fp5-mst-13.2.git

no such thing as gdbm_clearerr() (from Andy Dougherty)

p4raw-id: //depot/perl@3589
---

diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
index 9cd71ce..db28891 100644
--- a/ext/GDBM_File/GDBM_File.xs
+++ b/ext/GDBM_File/GDBM_File.xs
@@ -256,7 +256,6 @@ gdbm_STORE(db, key, value, flags = GDBM_REPLACE)
 		croak("No write permission to gdbm file");
 	    croak("gdbm store returned %d, errno %d, key \"%.*s\"",
 			RETVAL,errno,key.dsize,key.dptr);
-	    gdbm_clearerr(db);
 	}
 
 #define gdbm_DELETE(db,key)			gdbm_delete(db->dbp,key)