X-Git-Url: http://git.madism.org/?p=apps%2Fmadmutt.git;a=blobdiff_plain;f=tools%2Fcpkg2c.mll;fp=tools%2Fcpkg2c.mll;h=129004b895b94159e6950fea383c2fbe704321d4;hp=c0a045387968378ef19115e03690ffa11b898bf4;hb=8a0ec16b6cd58dc1bd73baae43fd62de24d63604;hpb=513217100b6a51a7b9428e83e1d1df6df28b4db7 diff --git a/tools/cpkg2c.mll b/tools/cpkg2c.mll index c0a0453..129004b 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 ( - Unix.unlink Sys.argv.(4); + try Unix.unlink Sys.argv.(4) with _ -> (); 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