[Collab-qa-commits] r575 - svnbuildstat/trunk/script

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-12 17:02:07 +0000 (Wed, 12 Dec 2007)
New Revision: 575

Modified:
   svnbuildstat/trunk/script/svnbuildstat_purge-repository.pl
Log:
s/vcs/vcstype/g

Modified: svnbuildstat/trunk/script/svnbuildstat_purge-repository.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_purge-repository.pl	2007-12-12 16:59:36 UTC (rev 574)
+++ svnbuildstat/trunk/script/svnbuildstat_purge-repository.pl	2007-12-12 17:02:07 UTC (rev 575)
@@ -58,8 +58,7 @@
   next unless $package->name;
   next unless $package->realsvndebrelease;
 
-  my $vcs = $package->repository_id->repositoryfamily_id->vcs_id->name;
-  next unless $vcs;
+  my $vcstype = $package->repository_id->repositoryfamily_id->vcs_id->name;
   my $workdir = $config->server_repositorydir.'/'.
   $package->repository_id->team_id->shortname.'/'.
   $package->name;
@@ -82,9 +81,9 @@
 
 
       if (!$purge &&
-	($vcs eq "svn" && $vcsrelease < $package->rev)||
-	($vcs eq "git" && $vcsrelease ne $package->rev)) {
-	$purge = 1;
+        (($vcstype eq "svn" && $vcsrelease < $package->rev)||
+          ( $vcsrelease ne $package->rev))) {
+        $purge = 1;
       }
 
       if ($purge) {