--- toast 2003/08/24 23:37:53 1.177 +++ toast 2003/08/24 23:44:33 1.178 @@ -1266,22 +1266,19 @@ local(*LIST); openurl(*LIST, $listurl); my(@urls); - if(!-B(LIST)) + while(<LIST>) { - while(<LIST>) + while(m!\bhref\s*=\s*"([^"]+)"!gi) { - while(m!\bhref\s*=\s*"([^"]+)"!gi) - { - my($url) = $1; - next unless $url =~ m!^(http|ftp)://!; - next if $url =~ m/\#/; - my($noquery) = stripquery($url); - next unless $noquery =~ m!\.\w+$!; - my($basename) = basename($noquery); - next unless $basename =~ /\Q$name\E/i; - next unless $basename =~ /\Q$version\E/i; - push(@urls, $url); - } + my($url) = $1; + next unless $url =~ m!^(http|ftp)://!; + next if $url =~ m/\#/; + my($noquery) = stripquery($url); + next unless $noquery =~ m!\.\w+$!; + my($basename) = basename($noquery); + next unless $basename =~ /\Q$name\E/i; + next unless $basename =~ /\Q$version\E/i; + push(@urls, $url); } } close(LIST) || error;