mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

DIRECTORY used stat() also on files that did not match the directory masks.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-17 23:02:57 +01:00
parent d72d2685bd
commit 858cf166a9
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/CHANGELOG
View file

@ -1,3 +1,10 @@
ECL 9.12.4:
===========
* Bugs fixed:
- DIRECTORY used stat() also on files that did not match the directory masks.
ECL 9.12.3:
===========

4
src/c/unixfsys.d
View file

@ -746,10 +746,10 @@ list_current_directory(const char *mask, bool only_dir, cl_object prefix)
(text[1] == '\0' ||
(text[1] == '.' && text[2] == '\0')))
continue;
if (only_dir && file_kind(text, TRUE) != @':directory')
continue;
if (mask && !string_match(text, mask))
continue;
if (only_dir && file_kind(text, TRUE) != @':directory')
continue;
out = ecl_cons(make_base_string_copy(text), out);
}
#ifdef HAVE_DIRENT_H