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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-09-11 19:57:21 +0000 (Tue, 11 Sep 2007)
New Revision: 429

Modified:
   svnbuildstat/script/svnbuildstat_update-db.pl
Log:
some minor fix


Modified: svnbuildstat/script/svnbuildstat_update-db.pl
===================================================================
--- svnbuildstat/script/svnbuildstat_update-db.pl	2007-09-10 20:13:21 UTC (rev 428)
+++ svnbuildstat/script/svnbuildstat_update-db.pl	2007-09-11 19:57:21 UTC (rev 429)
@@ -214,10 +214,10 @@
   my $currentpendingbug;
   my $currentchangelogentry;
 # arch
-  my $i386;
-  my $powerpc;
-  my $sparc;
-  my $amd64;
+  my $i386 = 'f';
+  my $powerpc = 'f';
+  my $sparc = 'f';
+  my $amd64 = 'f';
 
 
   return unless $rev;
@@ -243,10 +243,10 @@
       }
     } elsif (/^Architecture: (.*)/) {
       my $arch = $1;
-      $i386 = 1 if $arch =~ /(any|all|i386)/;
-      $powerpc = 1 if $arch =~ /(any|all|powerpc)/;
-      $sparc = 1 if $arch =~ /(any|all|sparc)/;
-      $amd64 = 1 if $arch =~ /(any|all|amd64)/;
+      $i386 = 't' if $arch =~ /(any|all|i386)/;
+      $powerpc = 't' if $arch =~ /(any|all|powerpc)/;
+      $sparc = 't' if $arch =~ /(any|all|sparc)/;
+      $amd64 = 't' if $arch =~ /(any|all|amd64)/;
     }
   }
   if (!$packagesrc) {
@@ -259,7 +259,7 @@
 
   # if the source is not in the pool I can suppose the tarball was missing for the last
   # check and so I need to check periodicly to see if the status has changed
-  if ($rev > $package->rev) {
+  if (defined($rev) && defined ($package->rev) && $rev > $package->rev) {
     if (!$package->issrcinmypool) {
       my ($year, $mon, $day, $hour, $min, $sec) = ($package->lastcheck =~ /(\d{4})-(\d+)-(\d+)\ (\d+):(\d+):(\d+)/);
       my $lastcheck = timelocal_nocheck($sec, $min, $hour, $day, $mon, $year);