ooo-build r12630 - in trunk: . bin

[jannieuw svn gnome org]

Author: jannieuw
Date: Thu May 22 11:20:59 2008
New Revision: 12630
URL: http://svn.gnome.org/viewvc/ooo-build?rev=12630&view=rev

Log:
2008-05-22  Jan Nieuwenhuizen  <janneke gnu org>

	* bin/cws-extract: Try reading log from next module until
	non-empty log is found.  Fixes extracting -w DEV300 sb83.


Modified:
   trunk/ChangeLog
   trunk/bin/cws-extract

Modified: trunk/bin/cws-extract
==============================================================================
--- trunk/bin/cws-extract	(original)
+++ trunk/bin/cws-extract	Thu May 22 11:20:59 2008
@@ -63,8 +63,12 @@
 print STDERR "Detecting cws tag:";
 if( @mod_list != 0 )
 {
-	my $line, $found_orig_mws = $mws;
-	open TAGS, "cvs -d '$cvsroot' log '$mod_list[0]' 2>/dev/null |" || die "Cannot read cvs log";
+	my ($line, $found_orig_mws) = $mws;
+	my $i = 0;
+	do {
+	    open TAGS, "cvs -d '$cvsroot' log '$mod_list[$i]' 2>/dev/null |";
+	    $i++;
+	} while ( eof ( TAGS ) && $i < scalar (@mod_list) );
 	while (<TAGS>)
 	{
 		if( ($found_orig_mws) = m/cws_(.*)_$cws/ )