diff options
Diffstat (limited to 'draco.pl')
-rwxr-xr-x | draco.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/draco.pl b/draco.pl index ee21f06..d3aa5c1 100755 --- a/draco.pl +++ b/draco.pl @@ -364,10 +364,9 @@ sub print_comment_chain { print ":PROPERTIES:\n"; print ":CREATED_UTC: ", Time::Piece->strptime($comment_data->{created_utc}, '%s') - ->strftime('%+'), "\n"; - foreach my $detail (qw( created_utc author permalink upvote_ratio - ups downs score edited stickied - controversiality )) { + ->strftime('%+'), " (=$comment_data->{created_utc}=)\n"; + foreach my $detail (qw( author permalink upvote_ratio ups downs + score edited stickied controversiality )) { print ":${detail}: =$comment_data->{$detail}=\n" if scalar $comment_data->{$detail}; } |