diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2003-01-06 20:05:48 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2003-01-06 20:05:48 +0000 |
| commit | cadb92e440984938c9e299088b54891fdfc7b77c (patch) | |
| tree | 7281d5b20376481e90bcc327d734ca6be52c4d4d /src/translate.erl | |
| parent | *** empty log message *** (diff) | |
*** empty log message ***
SVN Revision: 31
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) -> |