From c30eed40691674c03f9ba6e583ec5f1a31201906 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 13 Nov 2007 23:09:04 +0000
Subject: [PATCH]   * support <none> as empty version   * don't write not
 installed versions to status file

git-svn-id: trunk@9247 -
---
 utils/fppkg/fprepos.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/utils/fppkg/fprepos.pp b/utils/fppkg/fprepos.pp
index 1c09314b2c..57b4c45f8b 100644
--- a/utils/fppkg/fprepos.pp
+++ b/utils/fppkg/fprepos.pp
@@ -368,6 +368,9 @@ begin
   Major:=0;
   Minor:=0;
   Suffix:='';
+  // Special support for empty version string
+  if AValue='<none>' then
+    exit;
   V:=AValue;
   Release:=NextDigit('.',V);
   Major:=NextDigit('.',V);
@@ -804,7 +807,8 @@ begin
   Try
     For I:=0 to PackageCount-1 do
       With Packages[i] do
-        L.Add(Name+'='+InstalledVersion.AsString);
+        if not InstalledVersion.Empty then
+          L.Add(Name+'='+InstalledVersion.AsString);
     L.SaveToStream(Stream);
   Finally
     L.Free;