Fix file:script support

This commit is contained in:
Ulf Wiger 2012-04-17 00:14:33 +02:00 committed by Tuncer Ayaz
parent 7c418ed2b4
commit c3c64c1d70

View file

@ -165,7 +165,7 @@ get_env(Config, Mod) ->
consult_and_eval(File, Script) -> consult_and_eval(File, Script) ->
?DEBUG("Evaluating config script ~p~n", [Script]), ?DEBUG("Evaluating config script ~p~n", [Script]),
ConfigData = try_consult(File), ConfigData = try_consult(File),
file:script(File, bs([{'CONFIG', ConfigData}, {'SCRIPT', File}])). file:script(Script, bs([{'CONFIG', ConfigData}, {'SCRIPT', File}])).
remove_script_ext(F) -> remove_script_ext(F) ->