From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 22 Jun 2010 20:44:17 +0000 (+0200)
Subject: sort files by mtime descending
X-Git-Url: http://git.rot13.org/?p=MojoFacets.git;a=commitdiff_plain;h=28ed3834b792af09728ca90e984735877b50455c

sort files by mtime descending
---

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index a650988..a02a563 100644
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -1043,9 +1043,10 @@ sub export {
 		}
 	}
 
-	$self->render( export => [
-		glob( $self->_export_path . '*' )
-	] );
+	my @files = glob( $self->_export_path . '*' );
+	my $mtime = { map { $_ => (stat($_))[9] } @files };
+	@files = sort { $mtime->{$b} <=> $mtime->{$a} } @files;
+	$self->render( export => [ @files ] );
 }
 
 sub __loaded_paths {