normalize-pathname in local sockets

2008-03-31 14:38:11 -05:00 · 2008-03-31 14:38:11 -05:00 · 0a63a8fb40
parent 8f0530daa6
commit 0a63a8fb40
1 changed files with 1 additions and 1 deletions
--- a/extra/io/unix/sockets/sockets.factor
+++ b/extra/io/unix/sockets/sockets.factor
@ -189,7 +189,7 @@ M: local protocol-family drop PF_UNIX ;
 M: local sockaddr-type drop "sockaddr-un" c-type ;

 M: local make-sockaddr
-    local-path
+    local-path normalize-pathname
    dup length 1 + max-un-path > [ "Path too long" throw ] when
    "sockaddr-un" <c-object>
    AF_UNIX over set-sockaddr-un-family