+++ /dev/null
---- texmf-dist/tex/luatex/lualibs/lualibs-dir.lua 2010-05-29 02:25:56.000000000 -0700
-+++ texmf-dist/tex/luatex/lualibs/lualibs-dir.lua 2011-01-13 22:05:56.766564001 -0800
-@@ -26,15 +26,15 @@
- local walkdir = lfs.dir
-
- local function glob_pattern(path,patt,recurse,action)
-- local ok, scanner
-+ local ok, scanner, dirobj
- if path == "/" then
-- ok, scanner = xpcall(function() return walkdir(path..".") end, function() end) -- kepler safe
-+ ok, scanner, dirobj = xpcall(function() return walkdir(path..".") end, function() end) -- kepler safe
- else
-- ok, scanner = xpcall(function() return walkdir(path) end, function() end) -- kepler safe
-+ ok, scanner, dirobj = xpcall(function() return walkdir(path) end, function() end) -- kepler safe
- end
- if ok and type(scanner) == "function" then
- if not find(path,"/$") then path = path .. '/' end
-- for name in scanner do
-+ for name in scanner, dirobj do
- local full = path .. name
- local mode = attributes(full,'mode')
- if mode == 'file' then
-@@ -51,16 +51,16 @@
- dir.glob_pattern = glob_pattern
-
- local function collect_pattern(path,patt,recurse,result)
-- local ok, scanner
-+ local ok, scanner, dirobj
- result = result or { }
- if path == "/" then
-- ok, scanner = xpcall(function() return walkdir(path..".") end, function() end) -- kepler safe
-+ ok, scanner, dirobj = xpcall(function() return walkdir(path..".") end, function() end) -- kepler safe
- else
-- ok, scanner = xpcall(function() return walkdir(path) end, function() end) -- kepler safe
-+ ok, scanner, dirobj = xpcall(function() return walkdir(path) end, function() end) -- kepler safe
- end
- if ok and type(scanner) == "function" then
- if not find(path,"/$") then path = path .. '/' end
-- for name in scanner do
-+ for name in scanner, dirobj do
- local full = path .. name
- local attr = attributes(full)
- local mode = attr.mode