$JSON::PP::true = 1;
my $data = decode_json($source);
-my $update = eval { stat(${^LAST_FH} // $ARGV)->mtime }
- or warn "Could not determine input time\n";
-$data->{-date} = Time::Piece->new($update)->datetime;
+$data->{-date} = Time::Piece->new($_)->datetime
+ for delete $data->{updated} || ();
delete $data->{eras};
for (values %{ $data->{data} }) {