r2728 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-05-27 22:29:34 +0000 (Sun, 27 May 2007)
New Revision: 2728

Modified:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-tarball.pl
Log:
detect lib* packages present in Debian correctly

Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-tarball.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-tarball.pl	2007-05-27 22:15:53 UTC (rev 2727)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-tarball.pl	2007-05-27 22:29:34 UTC (rev 2728)
@@ -49,9 +49,9 @@
 
   if ($tarball) {
     foreach my $section (qw/main contrib non-free/) {
-      my $tmp = "/$1/".$$package->name if $$package->name =~ /^(.)/;
-      my $debdiffuri = $debmirror.'/pool/'.$section.$tmp.'/'.$debdiff;
-      my $tarballuri = $debmirror.'/pool/'.$section.$tmp.'/'.$tarball;
+      my $tmp = "$1/".$$package->name if $$package->name =~ /^(lib.|.)/;
+      my $debdiffuri = $debmirror.'/pool/'.$section.'/'.$tmp.'/'.$debdiff;
+      my $tarballuri = $debmirror.'/pool/'.$section.'/'.$tmp.'/'.$tarball;
 #    print "Looking for debdiff :".$debdiffuri."\n";
       my $req = HTTP::Request->new(HEAD => $debdiffuri);
       my $res = $ua->request($req);