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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-08-11 01:56:16 +0000 (Sat, 11 Aug 2007)
New Revision: 379

Modified:
   svnbuildstat/script/svnbuildstat_update-db.pl
Log:
remove the EPOCH for the check to see if the release is in Debian


Modified: svnbuildstat/script/svnbuildstat_update-db.pl
===================================================================
--- svnbuildstat/script/svnbuildstat_update-db.pl	2007-08-11 01:40:42 UTC (rev 378)
+++ svnbuildstat/script/svnbuildstat_update-db.pl	2007-08-11 01:56:16 UTC (rev 379)
@@ -71,6 +71,8 @@
   my $package = shift;
   return unless $$package->name;
   return unless $$package->svndebrelease;
+  my $svndebrelease = $$package->svndebrelease; 
+  $svndebrelease =~ s/^\d+://; # remove the EPOCH
 
   my $isindebian = 'f';
   my $tarballuri;
@@ -80,11 +82,10 @@
   $ua->agent("SvnBuildStat/0.1 ");
 
   if ($$package->svndebrelease !~ /-[\d+\.]+$/) {
-#    print $$package->name."\n";
     $isnative = 't';
   } else {
     my $debmirror = 'http://ftp.debian.org/debian';
-    my $debdiff .= $$package->name."_".$$package->svndebrelease.".diff.gz";
+    my $debdiff .= $$package->name."_".$>svndebrelease.".diff.gz";
     my $tarball = mkTarballFromPackage($package);
 
     if ($tarball) {