Update CPANPLUS::Dist::Build to CPAN version 0.32

[p5sagit/p5-mst-13.2.git] / ext / ODBM_File / ODBM_File.xs

diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs
index 376af1f..2510d5e 100644 (file)
--- a/ext/ODBM_File/ODBM_File.xs
+++ b/ext/ODBM_File/ODBM_File.xs
@@ -3,11 +3,6 @@
 #include "XSUB.h"
 
 #ifdef I_DBM
-/* If using the DB3 emulation, ENTER is defined both
- * by DB3 and Perl.  We drop the Perl definition now.
- * See also INSTALL section on DB3.
- * -- Stanislav Brabec <utx@penguin.cz> */
-#  undef ENTER
 #  include <dbm.h>
 #else
 #  ifdef I_RPCSVC_DBM
@@ -20,7 +15,7 @@ int   dbminit(char* filename);
 int    dbmclose(void);
 datum  fetch(datum key);
 int    store(datum key, datum dat);
-int    delete(datum key);
+int    delete(datum key); 
 datum  firstkey(void);
 datum  nextkey(datum key);
 #endif
@@ -37,7 +32,7 @@ datum nextkey(datum key);
  * Set DBM_BUG_DUPLICATE_FREE in the extension hint file.
  */
 /* Close the previous dbm, and fail to open a new dbm */
-#define dbmclose()     ((void) dbminit("/tmp/x/y/z/z/y"))
+#define dbmclose()     ((void) dbminit("/non/exist/ent"))
 #endif
 
 #include <fcntl.h>
@@ -97,7 +92,7 @@ odbm_TIEHASH(dbtype, filename, flags, mode)
 
            if (dbmrefcnt++)
                croak("Old dbm can only open one database");
-           New(0, tmpbuf, strlen(filename) + 5, char);
+           Newx(tmpbuf, strlen(filename) + 5, char);
            SAVEFREEPV(tmpbuf);
            sprintf(tmpbuf,"%s.dir",filename);
            if (stat(tmpbuf, &PL_statbuf) < 0) {