validPackage or indirectly generateIndex should work now for the time being

[infobot.git] / src / Modules / Debian.pl

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index 07045e1a4d1f74df2062542336813080eefab6fb..1b9e6ed819f3cbd21527140fa634812298955b0d 100644 (file)
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -829,12 +829,16 @@ sub generateIndex {
     foreach (@dists) {
        my $dist = &getDistro($_); # incase the alias is returned, possible?
        my $idx  = "debian/Packages-$dist.idx";
+       &::DEBUG("gI: dist => $dist.");
+       &::DEBUG("gI: idx  => $idx.");
+       &::DEBUG("gI: r    => $refresh.");
 
        # TODO: check if any of the Packages file have been updated then
        #       regenerate it, even if it's not stale.
        # TODO: also, regenerate the index if the packages file is newer
        #       than the index.
        next unless (&::isStale($idx, $refresh));
+
        if (/^incoming$/i) {
            &::DEBUG("gIndex: calling generateIncoming()!");
            &generateIncoming();
@@ -885,6 +889,11 @@ sub validPackage {
     my @files;
     my $file;
 
+    ### this majorly sucks, we need some standard in place.
+    # why is this needed... need to investigate later.
+    my $olddist        = $dist;
+    $dist = &getDistro($dist);
+
     &::DEBUG("D: validPackage($package, $dist) called.");
 
     my $error = 0;