[Collab-qa-commits] r398 - svnbuildstat/script

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-09-01 16:38:57 +0000 (Sat, 01 Sep 2007)
New Revision: 398

Modified:
   svnbuildstat/script/svnbuildstat_update-db.pl
Log:
use realsvndebrelease instead of hasunreleasedentry


Modified: svnbuildstat/script/svnbuildstat_update-db.pl
===================================================================
--- svnbuildstat/script/svnbuildstat_update-db.pl	2007-09-01 12:10:41 UTC (rev 397)
+++ svnbuildstat/script/svnbuildstat_update-db.pl	2007-09-01 16:38:57 UTC (rev 398)
@@ -274,16 +274,17 @@
 
   $package->issrcinmypool (0);
 
-  my $hasunreleasedchangelogentry;
   my @changelog = `svn cat $uri/debian/changelog`;
   if (@changelog) {
+     if ($changelog[0] =~ /^.*\ \((.*)\)/) {
+$package->realsvndebrelease($1)
+    }
 
     foreach (@changelog) {
       if (/^\S/ && $currentchangelogentry) {
 	# I ignore svn-bp empty template entry
 	if ($currentchangelogentry =~ /^.*\n\s\s\*\sNOT RELEASED YET\n\n\s--.*/m) {
 	  $currentchangelogentry = '';
-	  $hasunreleasedchangelogentry = 1;
 	} else {
 	  last; 
 	}
@@ -315,7 +316,6 @@
   if (@todo) {
     $todo .= $_ foreach @todo;
   }
-  $package->hasunreleasedchangelogentry($hasunreleasedchangelogentry);
   $package->update_from_related('repository_id',$$repository);
   
   $package->svndebrelease ($svndebrelease);