[svn:parrot] r39720 - trunk/tools/dev

[coke at svn.parrot.org]

Author: coke
Date: Mon Jun 22 15:49:51 2009
New Revision: 39720
URL: https://trac.parrot.org/parrot/changeset/39720

Log:
don't show a list of authors if it's just the creator.

Modified:
   trunk/tools/dev/branch_status.pl

Modified: trunk/tools/dev/branch_status.pl
==============================================================================
--- trunk/tools/dev/branch_status.pl	Mon Jun 22 15:21:56 2009	(r39719)
+++ trunk/tools/dev/branch_status.pl	Mon Jun 22 15:49:51 2009	(r39720)
@@ -53,11 +53,8 @@
         $newest->atts->{revision};
     my $created_date = $oldest->first_child('date')->xml_text;
     my $updated_date = $newest->first_child('date')->xml_text;
-    my $author_txt;
-    if (scalar keys %authors == 1) {
-         $author_txt = $creator;
-    }
-    else {
+    my $author_txt = '';
+    if (scalar keys %authors != 1) {
         my @counts;
         foreach my $author (sort {$authors{$b} <=> $authors{$a}} keys %authors) {
             push @counts, "$author [$authors{$author}]";
@@ -81,8 +78,11 @@
                   $revisions,
 '|       creator: {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<} |',
                   $creator,
+($author_txt ne '') ?
+(
 '|       authors: {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<} |',
                   $author_txt,
+): (),
 '|    created on: {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<} |',
                   $created_date,
 '|    updated on: {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<} |',