Fix same file comparison between VFS enginesHEADmaster

1 files changed, 4 insertions, 0 deletions

diff --git a/UCoreWorkers.pas b/UCoreWorkers.pas
index 709de2b..c6a8d28 100644
--- a/UCoreWorkers.pas
+++ b/UCoreWorkers.pas
@@ -1206,6 +1206,10 @@ var DefResponse: integer;   //  Global variables for this function
        ((SrcEngine as TVFSEngine).ArchivePath <> '') and
        ((SrcEngine as TVFSEngine).ArchivePath <> (DestEngine as TVFSEngine).ArchivePath)
          then Result := False else
+    if (SrcEngine is TVFSEngine) and (DestEngine is TVFSEngine) and
+       not (SrcEngine as TVFSEngine).ArchiveMode and not (DestEngine as TVFSEngine).ArchiveMode and
+       ((SrcEngine as TVFSEngine).GetPathURI <> (DestEngine as TVFSEngine).GetPathURI)
+         then Result := False else
     if WideCompareStr(Path1, Path2) = 0 then Result := True else
     // * FIXME: causes stat errors, no need to check every file.
     Result := TestCaseInsensitiveFS and DestEngine.TwoSameFiles(Path1, Path2, False);