From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 1 Sep 2000 12:56:43 +0000 (+0000)
Subject: debian: fixed broken files for woody's non-US
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f13f6782b1f6a8f853d7af03e8f0fb712b83bad3;p=infobot.git

debian: fixed broken files for woody's non-US


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@64 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index 36d952a..a997c79 100644
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -914,18 +914,22 @@ sub fixNonUS {
     foreach (keys %urls) {
 	last unless ($dist =~ /^(woody|potato)$/);
 	next unless (/non-US/);
-	&main::DEBUG("DD: Enabling hack (to keep slink happy) for $dist non-US.");
+
+	&main::DEBUG("DD: woody's non-US is borked, fixing.");
 
 	my $file = $_;
 	my $url  = $urls{$_};
 	delete $urls{$file};	# heh.
 
+	$file =~ s/woody/potato/g;
+	$url  =~ s/woody/potato/g;
+
 	foreach ("main","contrib","non-free") {
 	    my ($newfile,$newurl) = ($file,$url);
 	    # only needed for Packages for now, not Contents; good.
 	    $newfile =~ s/non-US/non-US_$_/;
 	    $newurl =~ s#non-US/bin#non-US/$_/bin#;
-	    &main::DEBUG("URL{$newfile} => '$newurl'.");
+
 	    $urls{$newfile} = $newurl;
 	}