This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
no such thing as gdbm_clearerr() (from Andy Dougherty)
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 5 Jul 1999 16:34:06 +0000 (16:34 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 5 Jul 1999 16:34:06 +0000 (16:34 +0000)
p4raw-id: //depot/perl@3589

ext/GDBM_File/GDBM_File.xs

index 9cd71ce..db28891 100644 (file)
@@ -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)