FIX: HTTP scheme redirect was not correctly dealing with port id

Oldes · Oldes · commit 4b058fad2b14 · 2019-04-02T16:29:32.000+02:00
diff --git a/src/mezz/prot-http.r b/src/mezz/prot-http.r
@@ -458,7 +458,7 @@ do-redirect: func [port [port!] new-uri [url! string! file!] /local spec state]
 	spec: port/spec
 	state: port/state
 	if #"/" = first new-uri [
-		new-uri: to url! ajoin [spec/scheme "://" spec/host new-uri]
+		new-uri: to url! ajoin [spec/scheme "://" spec/host #":" spec/port-id new-uri]
 	]
 	new-uri: decode-url new-uri
 

Original file line number	Diff line number	Diff line change
`@@ -458,7 +458,7 @@ do-redirect: func [port [port!] new-uri [url! string! file!] /local spec state]`
`458`	`458`	`spec: port/spec`
`459`	`459`	`state: port/state`
`460`	`460`	`if #"/" = first new-uri [`
`461`		`- new-uri: to url! ajoin [spec/scheme "://" spec/host new-uri]`
	`461`	`+ new-uri: to url! ajoin [spec/scheme "://" spec/host #":" spec/port-id new-uri]`
`462`	`462`	`]`
`463`	`463`	`new-uri: decode-url new-uri`
`464`	`464`