# HG changeset patch
# User Vincent Tondellier <tonton+hg@team1664.org>
# Date 1408485509 -7200
# Node ID a5c677eb83297524ce644ee140833f1d6371ebca
# Parent  6070307efd381e8c3eb0b1b60fe790fd36f2bb43
Fix perl critic warning, use an anonymous sub

diff -r 6070307efd38 -r a5c677eb8329 lib/CrashTest/Storage/FileSystem.pm
--- a/lib/CrashTest/Storage/FileSystem.pm	Tue Aug 19 23:51:31 2014 +0200
+++ b/lib/CrashTest/Storage/FileSystem.pm	Tue Aug 19 23:58:29 2014 +0200
@@ -51,8 +51,8 @@
     }
     closedir $dh;
 
-    sub by_date { $b->{date} <=> $a->{date} };
-    my @sorted_files = sort by_date @files;
+    my $by_date = sub { $b->{date} <=> $a->{date} };
+    my @sorted_files = sort $by_date @files;
 
     my $pager = Data::Page->new();
     $pager->total_entries(scalar @files);