Adapt for running from escript (fix 4).
This commit is contained in:
@@ -88,12 +88,6 @@ init() ->
|
|||||||
|
|
||||||
%% @private
|
%% @private
|
||||||
get_priv_dir() ->
|
get_priv_dir() ->
|
||||||
PrivDir = code:priv_dir(esqlite),
|
|
||||||
io:format("PrivDir = code:priv_dir(esqlite) = ~p~n", [PrivDir]),
|
|
||||||
case PrivDir of
|
|
||||||
%case code:priv_dir(esqlite) of
|
|
||||||
{error, bad_name} ->
|
|
||||||
%% application isn't in path, fall back
|
|
||||||
case is_escript() of
|
case is_escript() of
|
||||||
{true,Escript} ->
|
{true,Escript} ->
|
||||||
io:format("Escript = ~p~n", [Escript]),
|
io:format("Escript = ~p~n", [Escript]),
|
||||||
@@ -108,10 +102,10 @@ get_priv_dir() ->
|
|||||||
SqDir = filename:dirname(filename:dirname(Suf)),
|
SqDir = filename:dirname(filename:dirname(Suf)),
|
||||||
filename:join([AppsDir, [$.|SqDir], "priv"]); % prepend "." to suffix that starts with "/"
|
filename:join([AppsDir, [$.|SqDir], "priv"]); % prepend "." to suffix that starts with "/"
|
||||||
false ->
|
false ->
|
||||||
"priv"
|
case code:priv_dir(esqlite) of
|
||||||
end;
|
{error, bad_name} -> "priv";
|
||||||
Dir ->
|
Dir -> Dir
|
||||||
Dir
|
end
|
||||||
end.
|
end.
|
||||||
|
|
||||||
%% @private
|
%% @private
|
||||||
|
|||||||
Reference in New Issue
Block a user