From 2667b67438e94a284470f633617f360766adeb28 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 28 Jan 2015 09:31:36 +0100
Subject: [PATCH] fix, trailing dirsep removed

---
 src/ce_libman.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/ce_libman.pas b/src/ce_libman.pas
index 80c8c52c..37cbadde 100644
--- a/src/ce_libman.pas
+++ b/src/ce_libman.pas
@@ -121,6 +121,7 @@ var
   itm: TLibraryItem;
   lst: TStringList;
   i, j: NativeInt;
+  dir: string;
 begin
   for i := 0 to fCol.Count-1 do
   begin
@@ -142,7 +143,10 @@ begin
     begin
       lst := TStringList.Create;
       try
-        listFiles(lst, itm.libFile);
+        dir := itm.libFile;
+        if itm.libFile[length(dir)] = DirectorySeparator then
+          dir := dir[1..length(dir)-1]
+        listFiles(lst, dir);
         for j:= 0 to lst.Count-1 do
         begin
           if extractFileExt(lst.Strings[j]) = libExt then