Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit e6e9ebe4 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

make Sysutil.path_of_file treat trailing "/" correctly

parent f0e720b8
......@@ -151,10 +151,13 @@ let path_of_file f =
let d = Filename.dirname f in
if d = Filename.current_dir_name then
(* f is relative to the current dir *)
aux (f::acc) (Sys.getcwd ())
let b = Filename.basename f in
aux (b::acc) (Sys.getcwd ())
else if f=d then
(* we are at the root *)
acc
else
let b = Filename.basename f in
if b=Filename.current_dir_name then acc else
if f=b then b::acc else
aux (b::acc) d
in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment