diff options
Diffstat (limited to '')
-rw-r--r-- | src/translate.erl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/translate.erl b/src/translate.erl index 0c6d49ef..ca2a8f03 100644 --- a/src/translate.erl +++ b/src/translate.erl @@ -25,7 +25,13 @@ load_dir(Dir) -> {ok, Files} = file:list_dir(Dir), MsgFiles = lists:filter( fun(FN) -> - string:substr(FN, string:len(FN) - 3) == ".msg" + case string:len(FN) > 4 of + true -> + string:substr(FN, + string:len(FN) - 3) == ".msg"; + _ -> + false + end end, Files), lists:foreach( fun(FN) -> |