From 61466674a4533623dbe29cdde8a84914a5fdaf6f Mon Sep 17 00:00:00 2001
From: balazs <balazs@lazarus-ide.org>
Date: Sun, 11 Dec 2016 19:07:44 +0000
Subject: [PATCH] More bugfix.

git-svn-id: trunk@53641 -
---
 components/onlinepackagemanager/opkman_updates.pas | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/components/onlinepackagemanager/opkman_updates.pas b/components/onlinepackagemanager/opkman_updates.pas
index f9e4167160..a42860674b 100644
--- a/components/onlinepackagemanager/opkman_updates.pas
+++ b/components/onlinepackagemanager/opkman_updates.pas
@@ -83,7 +83,6 @@ type
     procedure DoOnUpdate;
     procedure Load;
     procedure Save;
-    procedure SetPaused(const AValue: Boolean);
     procedure AssignPackageData(APackage: TPackage);
     procedure ResetPackageData(APackage: TPackage);
     procedure CheckForOpenSSL;
@@ -282,7 +281,8 @@ var
   Package: TPackage;
   PackageFile: TPackageFile;
 begin
-  FNeedToBreak := True;
+  if SerializablePackages.Count = 0 then
+    Exit;
   FXML.Clear;
   FXML.SetDeleteValue('Version/Value', OpkVersion, 0);
   FXML.SetDeleteValue('Count/Value', SerializablePackages.Count, 0);
@@ -308,16 +308,6 @@ begin
   FXML.Flush;
 end;
 
-procedure TUpdates.SetPaused(const AValue: Boolean);
-begin
-  if FPaused <> AValue then
-  begin
-    FPaused := AValue;
-    if FPaused then
-      Save;
-  end;
-end;
-
 procedure TUpdates.AssignPackageData(APackage: TPackage);
 var
   I: Integer;