encode filenames in zip

include/mad.hrl

@@ -1 +1 @@
--define(VERSION,"1a61e1").
+-define(VERSION,"e2b453").

src/package/mad_escript.erl

@@ -17,7 +17,8 @@ read_file(File) -> {ok, Bin} = file:read_file(filename:absname(File)), Bin.
 static() ->
     Name = "static.gz",
     {ok,{_,Bin}} = zip:create(Name,
-        [ F || F <- mad_repl:wildcards(["{apps,deps}/*/priv/**","priv/**"]), not filelib:is_dir(F) ],
+        [ { binary_to_list(base64:encode(F)), element(2,file:read_file(F)) } 
+     || F <- mad_repl:wildcards(["{apps,deps}/*/priv/**","priv/**"]), not filelib:is_dir(F) ],
         [{compress,all},memory]),
     [ { Name, Bin } ].
 

src/provision/mad_repl.erl

@@ -101,7 +101,9 @@ load() ->
 unfold_zips(Bin) ->
     {ok,Unzip} = zip:unzip(Bin,[memory]),
     [ begin
-        ets:insert(filesystem,{U,FileBin}),
+       try
+        ets:insert(filesystem,{binary_to_list(base64:decode(list_to_binary(U))),FileBin})
+       catch _:_ -> ok end,
         case U of
             "static.gz" -> unfold_zips(FileBin);
             _ -> skip end