Attention une mise à jour du service Gitlab va être effectuée le mardi 18 janvier (et non lundi 17 comme annoncé précédemment) entre 18h00 et 18h30. 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.

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