From 58575911b488c1f57984e7220ec3d31b76a5b25c Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Mon, 5 Oct 2009 20:57:10 +0200
Subject: Don't leak fds on checksum check cancellation

---
 UChecksum.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'UChecksum.pas')

diff --git a/UChecksum.pas b/UChecksum.pas
index 679d7ef..90eb029 100644
--- a/UChecksum.pas
+++ b/UChecksum.pas
@@ -436,8 +436,8 @@ begin
       ProgressBar.Text := Format('%d %%', [Trunc(ProgressBar.Fraction * 100)]);
       Application.ProcessMessages;
     until (Count < ChksumBlockSize) or Stop;
-    if Stop then Break;
     Engine.CloseFile(FD);
+    if Stop then Break;
     if not Data.IsMD5 then Data.Status := Ord(not (CRC = Data.CRC)) + 1 else begin
       MDFinal(MDContext, MDDigest);
       Data.Status := Ord(AnsiCompareText(Data.MD5, MDPrint(MDDigest)) <> 0) + 1;
-- 
cgit v1.2.3