second arg to mkdir is MODE, not MASK

[perl5.git] / ext / SDBM_File / SDBM_File.xs

diff --git a/ext/SDBM_File/SDBM_File.xs b/ext/SDBM_File/SDBM_File.xs
index bb994f7..0df2855 100644 (file)
--- a/ext/SDBM_File/SDBM_File.xs
+++ b/ext/SDBM_File/SDBM_File.xs
@@ -2,7 +2,7 @@
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
-#include "sdbm/sdbm.h"
+#include "sdbm.h"
 
 #define fetch_key 0
 #define store_key 1
@@ -29,6 +29,8 @@ typedef datum datum_value ;
 
 MODULE = SDBM_File     PACKAGE = SDBM_File     PREFIX = sdbm_
 
+PROTOTYPES: DISABLE
+
 SDBM_File
 sdbm_TIEHASH(dbtype, filename, flags, mode, pagname=NULL)
        char *          dbtype