Correcoes em valores de retorno de funcoes.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/lfs.c b/src/lfs.c
index a5c152a..6366aab 100644
--- a/src/lfs.c
+++ b/src/lfs.c
@@ -9,7 +9,7 @@
 **   lfs.lock (fh, mode)
 **   lfs.unlock (fh)
 **
-** $Id: lfs.c,v 1.11 2004/11/05 10:37:29 tomas Exp $
+** $Id: lfs.c,v 1.12 2004/11/05 10:54:28 tomas Exp $
 */
 
 #include <errno.h>
@@ -239,8 +239,10 @@ static int make_dir (lua_State *L) {
                              S_IWGRP | S_IXGRP | S_IROTH | S_IXOTH );
 #endif
         lua_pushboolean (L, !fail);
-        if (fail)
+        if (fail) {
         lua_pushfstring (L, "%s", strerror(errno));
+                return 2;
+        }
         umask (oldmask);
         return 1;
 }