From 87f0ade5709ed7f08271f6e73dec2112d96bfc97 Mon Sep 17 00:00:00 2001 From: Pierre Habouzit Date: Sat, 19 May 2007 17:29:46 +0200 Subject: [PATCH] make generated tools RO for real Signed-off-by: Pierre Habouzit --- tools/cpkg2c.mll | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.20.1