r2753 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-05-28 21:17:01 +0000 (Mon, 28 May 2007)
New Revision: 2753

Modified:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl
Log:
fix: do not set istarballpresent to false stupidly

Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl	2007-05-28 21:12:25 UTC (rev 2752)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl	2007-05-28 21:17:01 UTC (rev 2753)
@@ -98,9 +98,10 @@
       my $ua = LWP::UserAgent->new;
       $ua->agent("SvnBuildStat/0.1 ");
       my $res = $ua->request($req);
-      my $istarballpresent = $res->is_success?1:0;
-      $package->istarballpresent($istarballpresent);
-      $package->tarballuri($tarballuri);
+      if ($res->is_success) {
+	$package->istarballpresent(1);
+	$package->tarballuri($tarballuri);
+      }
     }
 
     $package->uri($uri);