summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rwxr-xr-xdraco.pl7
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};
     }