--- toast	2005/03/07 00:32:13	1.374
+++ toast	2005/03/17 03:31:38	1.375
@@ -1990,7 +1990,6 @@
 sub whilebuild(&@)
 {
   my($sub, $name, $version, $build, @urls) = @_;
-  @urls && error;
 
   for $name (allnames($name))
   {
@@ -3275,6 +3274,21 @@
           "# $genby\n\nall:\n\ttrue\n\ninstall:\n\t@cmd\n");
       return $dir;
     }
+  }
+
+  # Construct a Makefile to invoke setup.py on behalf of certain Python source
+  # packages (notably BitTorrent):
+  if(-r(path($dir, "setup.py")))
+  {
+    writefile
+    (
+      path($dir, "Makefile"),
+      "# $genby\n\n",
+      "all:\n\tpython setup.py build\n\n",
+      "install:\n\tpython setup.py install " .
+          "--prefix=\Q$prefix\E --root=\$(DESTDIR)\n",
+    );
+    return $dir;
   }
 
   # try looking in promisingly-named subdirectories