From 7dd735a5d0783bd74c148ffdddf2568f1a286d47 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 3 Feb 2001 15:21:01 +0000
Subject: [PATCH] validPackage or indirectly generateIndex should work now for
 the time being

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@324 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/Debian.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index 07045e1..1b9e6ed 100644
--- 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;
-- 
2.39.2