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 (file)
--- 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)