*** empty log message ***

SVN Revision: 31
2003-01-06 20:05:48 +00:00 · 2003-01-06 20:05:48 +00:00 · cadb92e440
parent a4d2a5557e
commit cadb92e440
1 changed files with 7 additions and 1 deletions
--- 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) ->