Fix compile error in ::Log::Entry and warning in ::Log

[gruntmaster-page.git] / lib / Gruntmaster / Page / Log.pm

diff --git a/lib/Gruntmaster/Page/Log.pm b/lib/Gruntmaster/Page/Log.pm
index d276f558b0b38313440da4cc5e850fa8a30caec7..957b5102e64b031b2d11b914a9a50de9a6dcf91d 100644 (file)
--- a/lib/Gruntmaster/Page/Log.pm
+++ b/lib/Gruntmaster/Page/Log.pm
@@ -46,7 +46,7 @@ sub generate{
   my @log = sort { $b->{id} <=> $a->{id} } map {
        my $meta = LoadFile "$path/$_/meta.yml";
        +{ id => $_,
-          date => strftime ('%c' => localtime $meta->{date}),
+          date => (exists $meta->{date} ? strftime ('%c' => localtime $meta->{date}) : '?'),
           user => $meta->{user},
           result => $meta->{result},
           name => $meta->{name},