This commit is contained in:
kestes%walrus.com 2004-07-18 17:58:39 +00:00
Родитель b2e5c09c4f
Коммит 49ac9ce62f
1 изменённых файлов: 3 добавлений и 3 удалений

Просмотреть файл

@ -3,8 +3,8 @@
# Utils.pm - General purpose utility functions. Every project needs a
# kludge bucket for common access.
# $Revision: 1.40 $
# $Date: 2004-07-18 17:57:13 $
# $Revision: 1.41 $
# $Date: 2004-07-18 17:58:39 $
# $Author: kestes%walrus.com $
# $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/Utils.pm,v $
# $Name: $
@ -599,7 +599,7 @@ sub group_files {
push @{$dirs{$dirname}}, $file;
}
foreach $dir (keys %dirs) {
foreach $dir (sort keys %dirs) {
if ($#{$dirs{$dir}} >= $limit_dir_files) {
push @out, $dir.'/*';