method mkentry (rp:relpath) abspath perm = 
    let realperm = perm land (lnot 0o111) in
      match rp with Relpath(rel) ->
        let fqp = String.concat "/" [root_dir;rel] in
        let res = Directfifowatcher.mkentry fqp abspath realperm slice_name in
          match res with 
            | Success ->
                Directfifowatcher.openentry root_dir fqp (abspath,slice_name)
            | _ -> ()