normalize-pathname in local sockets
parent
8f0530daa6
commit
0a63a8fb40
|
@ -189,7 +189,7 @@ M: local protocol-family drop PF_UNIX ;
|
||||||
M: local sockaddr-type drop "sockaddr-un" c-type ;
|
M: local sockaddr-type drop "sockaddr-un" c-type ;
|
||||||
|
|
||||||
M: local make-sockaddr
|
M: local make-sockaddr
|
||||||
local-path
|
local-path normalize-pathname
|
||||||
dup length 1 + max-un-path > [ "Path too long" throw ] when
|
dup length 1 + max-un-path > [ "Path too long" throw ] when
|
||||||
"sockaddr-un" <c-object>
|
"sockaddr-un" <c-object>
|
||||||
AF_UNIX over set-sockaddr-un-family
|
AF_UNIX over set-sockaddr-un-family
|
||||||
|
|
Loading…
Reference in New Issue