瀏覽代碼

patched behavior of CopyFiles with target mask including dots
copyfiles ../*.* => xyz/*.* works
note that abc/* => xyz/* does not work: cuts the extension

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7886 8c9fc860-2736-0410-a75d-ab315db34111

felixf 7 年之前
父節點
當前提交
0621537f5a
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      source/FSTools.Mod

+ 1 - 1
source/FSTools.Mod

@@ -932,7 +932,7 @@ BEGIN
 	SplitFullName(sourceName, srcPrefix, srcPath, srcFilename, srcExtension);
 	index := 0;
 	FOR i := 0 TO LEN(targetMask)-1 DO
-		IF targetMask[i] = "." THEN
+		IF (targetMask[i] = ".") & (targetMask[i+1]#".") & (targetMask[i+1]#"/") THEN
 			isExtension := TRUE;
 			targetName[index] := targetMask[i];
 			INC(index);