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 36d952a0728f97362edff0aa5bc83ec69b732fec..a997c797c8e4ec21f3a78d3abda7828c549109c2 100644 (file)
--- 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;
        }