* Bug 14395 fixed: %dir_p repaired against []+'..' when no subdir
[scilab.git] / scilab / modules / fileio / macros / %dir_p.sci
index 562dfe9..ce1362d 100644 (file)
@@ -22,7 +22,9 @@ function %dir_p(L)
 
     // If it is a directory, add a trailing "/"
     tmp = find(L.isdir);
-    name(tmp) = name(tmp) + filesep();
+    if tmp~=[] then
+        name(tmp) = name(tmp) + filesep();
+    end
 
     nc = 6;
     l1 = length(name);
@@ -51,4 +53,3 @@ function %dir_p(L)
     txt(txt == "") = [];
     mprintf("%s \n",txt);
 endfunction
-