--- toast 2004/04/09 23:28:59 1.320 +++ toast 2004/04/24 22:04:04 1.321 @@ -798,13 +798,14 @@ $method ||= "GET"; $proxy = httpproxy unless defined($proxy); explain("fetching $url"); - $url =~ m!^(\w+)://([\w\.]+)(:(\d+))?(/[\!-\~]*)?$! || error("bad url: $url"); + $url =~ m!^(\w+)://([-\w\.]+)(:(\d+))?(/[\!-\~]*)?$! || + error("bad url: $url"); my($proto, $host, $port, $path) = ($1, $2, $4 || 80, $5 || '/'); my($hdrhost) = $port == 80 ? $host : "$host:$port"; if($proxy) { $path = "$proto://$host:$port$path"; - $proxy =~ m!^(\w+://)?([\w\.]+)(:(\d+))?([^:]+)(:(\d+))?/?$! + $proxy =~ m!^(\w+://)?([-\w\.]+)(:(\d+))?([^:]+)(:(\d+))?/?$! || error("bad proxy URL: $proxy"); ($host, $port) = ($2, $4 || 8080); } @@ -2588,7 +2589,7 @@ "["); helprewrite($srcdir, $rootdir, $helperdir, $_, true) foreach (qw[mv]); - helpnop($helperdir, $_) foreach (qw[chown chgrp ldconfig install-info]); + helpnop($helperdir, $_) for (qw[chown chgrp ldconfig install-info mknod]); $env{PATH} = "$helperdir:$env{PATH}"; my($preload) = helplib($srcdir, $rootdir, $helperdir); @@ -6126,7 +6127,8 @@ Known bugs: - - autofind produces URLs with extra slashes, e.g. "toast arm flex" + - autofind produces URLs with extra slashes, e.g. "toast arm flex" (?) + - toast guesses device/mapper-1.00.17 for device-mapper.1.00.17.tgz - make oldconfig isn't running for linux/2.6.x - toast add misguesses device-mapper name/version from URL - autofind hangs in httphead() when going through tinyproxy? @@ -6144,6 +6146,7 @@ Wish list: + - automatically "toast env"-ify environment during "toast build" - work around lack of getenv(), mkdir(), etc. in microperl...? - "toast upgrade" w/o args should imply --nostoponerror or something - "toast arm" should move armed packages to top of stacking order