add pattern for lfs.dir on WIN32

Author: uudiin

src/lfs.c

@@ -556,7 +556,7 @@ static int dir_iter_factory (lua_State *L) {
         if (strlen(path) > MAX_PATH-2)
           luaL_error (L, "path too long: %s", path);
         else
-          sprintf (d->pattern, "%s/*", path);
+          sprintf (d->pattern, "%s/%s", path, luaL_optstring(L, 2, "*"));
 #else
         d->dir = opendir (path);
         if (d->dir == NULL)