diff options
-rwxr-xr-x | run/rss | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -16,7 +16,9 @@ my %feeds = ( my $feed = XML::Feed->parse(URI->new($feeds{$name})) or die XML::Feed->errstr; -my @entries = $feed->entries; + +# Sort entries +my @entries = sort { $b->issued <=> $a->issued } $feed->entries; # Print summary of five latest entries for my $entry (@entries[0..4]) { |