diff options
| -rw-r--r-- | protocol.f90 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/protocol.f90 b/protocol.f90 index 087e96a..76fb8d4 100644 --- a/protocol.f90 +++ b/protocol.f90 @@ -143,7 +143,11 @@ contains if(path(1:1) == "/") then first_slash = index(current_url(past_protocol:len_trim(current_url)), "/") - current_url = current_url(1:(past_protocol + first_slash - 1))//path(2:len_trim(path)) + if(first_slash < 1) then + current_url = trim(current_url)//trim(path) + else + current_url = current_url(1:(past_protocol + first_slash - 1))//path(2:len_trim(path)) + end if else |