--- toast	2009/03/20 04:54:13	1.463
+++ toast	2009/03/20 06:05:00	1.464
@@ -2337,12 +2337,16 @@
   my($lcname) = lc($name);
   my($perlname) = $name;
   $perlname =~ s/-/::/g;
+  my($sfname) = $lcname;
+  $sfname = substr($sfname,0,1) . '/' . substr($sfname,0,2) . '/' . $sfname
+      if length($sfname)>2;
 
   my(@sites) =
   (
     "freshmeat" => "http://freshmeat.net/projects-xml/$lcname/$lcname.xml",
     "googlecode" => "http://code.google.com/p/$lcname/downloads/list",
-    "sourceforge" => "http://prdownloads.sourceforge.net/$lcname/",
+    "sourceforge" => "http://www.mirrorservice.org/sites/" .
+        "download.sourceforge.net/pub/sourceforge/$sfname/",
     "gnu" => "http://ftp.gnu.org/gnu/$lcname/",
     "cpan" => "http://cpan.uwinnipeg.ca/module/$perlname",
   );