X-Git-Url: http://git.madism.org/?a=blobdiff_plain;f=tools%2Fcpkg2c.mll;fp=tools%2Fcpkg2c.mll;h=a3a378289f9b82d101b8c1fffaee10ee2baa97f3;hb=87f0ade5709ed7f08271f6e73dec2112d96bfc97;hp=cefc38990eaafe3776bb4b1c601a57d62b24dbd2;hpb=c855a6e8e9522ac9add840b18a869c831030f569;p=apps%2Fmadmutt.git

diff --git a/tools/cpkg2c.mll b/tools/cpkg2c.mll
index cefc389..a3a3782 100644
--- a/tools/cpkg2c.mll
+++ b/tools/cpkg2c.mll
@@ -631,7 +631,7 @@ int luaopen_%s(lua_State *L)
     let lexbuf = L.from_channel (open_in file) in
     let l      = (startchunk cLine file lexbuf) in
     if Sys.argv.(3) = "-o" then
-        let ob = open_out_gen [ Open_trunc ; Open_wronly; Open_creat ] 0444 Sys.argv.(4) in
+        let ob = open_out_gen [ Open_trunc ; Open_wronly; Open_creat ] 0o444 Sys.argv.(4) in
         match Sys.argv.(1) with
         | "-h" -> warn ob; do_h ob l; close_out ob
         | "-c" -> warn ob; do_c ob l; close_out ob