Subject: | File::Spec::Unix->catdir("/", "home") returns "//home" |
File::Spec::Unix->catdir("/", "home") returns "//home" instead
of "/home".
Suggest this change:
sub catdir {
my $self = shift;
my(@dirs) = @_;
map(s,/+$,,, @dirs);
$self->canonpath(join('/', @dirs, '')); # '' because need a
trailing '/'
}