r2734 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-05-27 23:49:47 +0000 (Sun, 27 May 2007)
New Revision: 2734

Modified:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl
Log:
There is no reason for not storing upstreamversion

Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl	2007-05-27 23:32:46 UTC (rev 2733)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl	2007-05-27 23:49:47 UTC (rev 2734)
@@ -6,7 +6,7 @@
 use Data::Dumper;
 use File::Temp qw/ tempfile /;
 use Thread::Pool::Simple;
-use lib '/home/sites/svnbuildstat.debian.net/svnbuildstat/lib';
+use lib '/home/goneri/svn/pkg-games/people/goneri/SvnBuildStat-WWW/lib';
 use SvnBuildStat::Schema;
 use SvnBuildStat::Config;
 
@@ -52,10 +52,10 @@
   my $isuptodate = 'f';
   my $upstreamrelease;
   foreach (@uscan) {
-#    print;
+    print;
     $tarballuri = $1 if (/^<upstream-url>(.+)<\/upstream-url>$/);
     $isuptodate = 't' if (/^<status>up to date<\/status>$/);
-#    $upstreamrelease = $1 if (/^<upstream-version>(.+)<\/upstream-version>$/); 
+    $upstreamrelease = $1 if (/^<upstream-version>(.+)<\/upstream-version>$/); 
   }
 #  print "tarballuri:".$tarballuri."\n";
 #  print "isuptodate:".$isuptodate."\n";
@@ -66,9 +66,9 @@
     if (defined ($tarballuri) && $tarballuri && !$$package->istarballpresent) {
       $$package->tarballuri($tarballuri);
     }
-  } else {
-    $$package->upstreamrelease($$upstreamrelease) if $upstreamrelease;
   }
+
+  $$package->upstreamrelease($upstreamrelease) if $upstreamrelease;
   $$package->update;
 }