From 6212b2355152eeef10f3352276a41d5fbad77f6f Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sun, 16 Nov 2008 18:23:23 +0100
Subject: Nested VFS archiving engines support

---
 UCore.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'UCore.pas')

diff --git a/UCore.pas b/UCore.pas
index 90ea68b..b7f3067 100644
--- a/UCore.pas
+++ b/UCore.pas
@@ -65,12 +65,13 @@ type TVFSCallbackThread = class(TThread)
 
      TWorkerThread = class(TVFSCallbackThread)
      private
-       FCancelled: boolean;
        GUIMutex: TCriticalSection;
      protected
        procedure Execute; override;
        procedure CommitGUIUpdate;
      public
+       FCancelled: boolean;
+
        //  Data to update
        FProgress1Pos, FProgress2Pos, FProgress1Max, FProgress2Max: Int64;
        FProgress1Text, FProgress2Text, FLabel1Text, FLabel2Text: string;
@@ -1176,8 +1177,10 @@ var DefResponse: integer;   //  Global variables for this function
         if (not ParamDir) or (ParamDir and b and IsOnSameFS(ExcludeTrailingPathDelimiter(FullPath), s2))
           then begin
                  Info := SrcEngine.GetFileInfoSL(FullPath);
-                 if Info = nil then DebugMsg(['$$$ Copy: Something went wrong while building the filelist...'])
-                 else begin
+                 if Info = nil then begin
+                   DebugMsg(['$$$ Copy: Something went wrong while building the filelist...']);
+                   ErrorHappened := True;
+                 end else begin
                    Info^.ADestination := strdup(PChar(s));
                    Info^.ForceMove := True;
                    AList.Add(Info);
-- 
cgit v1.2.3