# massage namespace, empty if absolute path
$namespace =~ s/^\/// if $namespace;
$namespace .= '/' if $namespace;
- $path ||= '';
+ $path = '' if !defined $path;
$namespace = '' if $path =~ /^\//;
$path =~ s/^\///;
$path =~ s/\?/%3F/g;
}
s/\?/%3F/g; $_
} @args ) : '' );
- $args =~ s/^\/// unless $path;
+ $args =~ s/^\/// unless length $path;
my $res =
URI->new_abs( URI->new_abs( "$path$args", "$basepath$namespace" ), $base )
->canonical;