summary refs log tree commit diff stats
path: root/draco.pl
diff options
context:
space:
mode:
Diffstat (limited to 'draco.pl')
-rwxr-xr-xdraco.pl4
1 files changed, 3 insertions, 1 deletions
diff --git a/draco.pl b/draco.pl
index ac67ee9..08779a1 100755
--- a/draco.pl
+++ b/draco.pl
@@ -91,7 +91,9 @@ sub print_comment_chain {
     my $comment = shift @_;
     my $level = shift @_;
 
-    print "*" x ($level + 2), " ", "$comment->{author}\n";
+    print "*" x ($level + 2), " ", "$comment->{author}";
+    print " [S]" if $comment->{is_submitter};
+    print "\n";
 
     # Print comment details.
     print ":PROPERTIES:\n";