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

[coke at svn.parrot.org]

Author: coke
Date: Fri May  8 17:44:19 2009
New Revision: 38608
URL: https://trac.parrot.org/parrot/changeset/38608

Log:
[cage] fix bug in merge log checking.

last variant always printed 'N/A';

Modified:
   trunk/tools/dev/branch_status.pl

Modified: trunk/tools/dev/branch_status.pl
==============================================================================
--- trunk/tools/dev/branch_status.pl	Fri May  8 17:32:16 2009	(r38607)
+++ trunk/tools/dev/branch_status.pl	Fri May  8 17:44:19 2009	(r38608)
@@ -31,7 +31,7 @@
     my $creator = $oldest->first_child('author')->xml_text;
 
     my (%authors,%components);
-    my $merge_log = 'N/A';
+    my $merge_log;
     foreach my $entry ($t->root->children('logentry')) {
             $authors{$entry->first_child('author')->xml_text}++;
             my $msg = $entry->first_child('msg')->xml_text;
@@ -49,6 +49,7 @@
                     }
             }
     }
+    $merge_log //= 'N/A';
 
     my $revisions =  'r' .$oldest->atts->{revision} . ':' .
         $newest->atts->{revision};