Permalink
Browse files

sorted file lists

  • Loading branch information...
1 parent 288d15f commit 2b6e43ffd6952dabf6fa82646b49171b8ef52420 @yappo committed Feb 4, 2011
Showing with 4 additions and 0 deletions.
  1. +4 −0 lib/HTML5/Manifest.pm
View
@@ -18,8 +18,12 @@ sub _recurse {
my($self, $path, $cb) = @_;
my $dir = IO::Dir->new($path) or die "Can't open directory $path: $!";
+ my @list;
while (defined(my $entry = $dir->read)) {
next if $entry eq File::Spec->updir || $entry eq File::Spec->curdir;
+ push @list, $entry;
+ }
+ for my $entry (sort @list) {
my $new_path = File::Spec->catfile($path, $entry);
my $is_dir = -d $new_path;
$entry = "$entry/" if $is_dir;

0 comments on commit 2b6e43f

Please sign in to comment.