From 28ed3834b792af09728ca90e984735877b50455c Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 22 Jun 2010 22:44:17 +0200 Subject: [PATCH] sort files by mtime descending --- lib/MojoFacets/Data.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 { -- 2.20.1