subtitle handling, prettified dates. bugfixes and better errors

[scpubgit/SCS.git] / lib / SCSite / LatestPageSet.pm

diff --git a/lib/SCSite/LatestPageSet.pm b/lib/SCSite/LatestPageSet.pm
index 327fb2c..c8fd13f 100644 (file)
--- a/lib/SCSite/LatestPageSet.pm
+++ b/lib/SCSite/LatestPageSet.pm
@@ -8,9 +8,10 @@ has _max_entries => (is => 'ro', required => 1, init_arg => 'max_entries');
 sub flatten {
   my ($self) = @_;
   my @sorted = sort {
-    $a->created cmp $b->created
+    $b->created cmp $a->created
   } $self->_parent->flatten;
-  $self->_max_entries ? @sorted[0..$self->_max_entries-1] : @sorted;
+  my $max = $self->_max_entries||0;
+  $max && @sorted > $max ? @sorted[0..$max-1] : @sorted;
 }
 
 sub map {