[Relfs-devel] patch correction

[Raskin M. <fb0...@ra...>]

Hello. Testing showed that

+let absolutize_link path=
+        let s=(Unix.readlink path) in
+                if path.[0] = '/' then s
+                else let full_path=String.concat "/" ((Filename.dirname 
path)::s::[]) in
+                        if full_path.[0] = '/' then full_path
+                        else String.concat "/" ((Unix.getcwd ()) :: 
full_path :: [])


should be read as

+let absolutize_link path=
+        let s=(Unix.readlink path) in
+                if s.[0] = '/' then s
+                else let full_path=String.concat "/" ((Filename.dirname 
path)::s::[]) in
+                        if full_path.[0] = '/' then full_path
+                        else String.concat "/" ((Unix.getcwd ()) :: 
full_path :: [])


.
Sorry. I hope it works now.
Michael Raskin