Date: | Sat, 12 Feb 2005 20:17:59 +0100 |
From: | Max Maischein <corion [...] corion.net> |
To: | bug-CPANPLUS [...] rt.cpan.org |
Subject: | CPANPLUS::Internals::Fetch v0.053?? handles file:// URLs incorrectly |
Hi again,
CPANPLUS::Internals::Fetch (I guess it's version 0.053, but it doesn't
include any version number within the file) also has broken handling for
remote C<file://> URLs:
sub _fetch {
...
### build pretty print uri ###
my $where;
if( $host->{'scheme'} eq '--file' ) {
$where = CREATE_FILE_URI->(
File::Spec::Unix->rel2abs(
File::Spec::Unix->catdir(
grep { defined $_ && length $_ }
$host->{'host'},
$mirror_path
)
)
);
} else {
$where = "$host->{scheme}://" .
File::Spec::Unix->catdir(
($host->{'host'} ? $host->{'host'} :
'localhost'),
$mirror_path
);
}
Removing the special handling for C<file> makes everything work on my
setup which has a C<host> part for the file:// URI.
-max