Parent Directory | Revision Log | Patch
revision 1.8 by skx, Tue Sep 23 17:54:29 2003 UTC | revision 1.9 by skx, Fri Sep 26 09:19:04 2003 UTC | |
---|---|---|
# | Line 1825 sub serveDirectory( $ $ ) | Line 1825 sub serveDirectory( $ $ ) |
1825 | # | # |
1826 | # Find all the subdirs. | # Find all the subdirs. |
1827 | # | # |
1828 | my @files = &dirsInDir( $dir ); | my @files = &dirsInDir( $dir ); |
1829 | @files = sort {uc($a) cmp uc($b)} @files; | |
1830 | ||
1831 | foreach my $file (@files) | foreach my $file (@files) |
1832 | { | { |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |