--- toast	2005/09/06 06:42:44	1.399
+++ toast	2005/09/07 05:47:57	1.400
@@ -843,7 +843,7 @@
   if($proxy)
   {
     $path = "$proto://$host:$port$path";
-    $proxy =~ m!^(\w+://)?([-\w\.]+)(:(\d+))?([^:]+)(:(\d+))?/?$!
+    $proxy =~ m!^(\w+://)?([-\w\.]+)(:(\d+))?/?$!
         || error("bad proxy URL: $proxy");
     ($host, $port) = ($2, $4 || 8080);
   }
@@ -2202,7 +2202,7 @@
     my(@links) = linksfromurl($url);
     my(@urls) = grep(lookslikepkgurl($_, $name, $version), @links);
     my($ext);
-    for $ext qw[.tar.bz2 .tar.gz .tgz .zip .deb .rpm]
+    for $ext (qw[.tar.bz2 .tar.gz .tgz .zip .deb .rpm])
     {
       my(@matches) = grep(stripquery($_) =~ /\Q$ext\E$/i, @urls);
 
@@ -2592,7 +2592,7 @@
             print("$myname: created directory $rootdir$dir\n");
         $dir .= "/$component";
       }
-      -d("$armdir$_") && mkdir("$rootdir$_") &&
+      -d("$armdir$_") && mkdir("$rootdir$_", 0777) &&
           print("$myname: created directory $rootdir$_\n");
       $_ = "$rootdir$_";
     }
@@ -6985,6 +6985,7 @@
   - autofind produces URLs with extra slashes, e.g. "toast arm latex"
   - make oldconfig isn't running for linux/2.6.x
   - toast add misguesses device-mapper name/version from URL
+  - toast add misguesses [ foo-1.0-src.tar.gz foo-1.0-src.diff.gz ]
   - autofind hangs in httphead() when going through tinyproxy?
   - autofind mishandles http redirects (e.g. http://toastball.net/toast)
   - gtk+ doesn't seem to build properly when it is already armed