From 5cebbb713bb16ddb765aadebb441ab4dde8eb191 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Fri, 2 Feb 2024 02:58:48 +0400
Subject: [PATCH] eventually refactoring to ssts-q's json module done.

---
 src/vpkInstaller.Mod        | 2 +-
 src/vpkJsonDepRetriever.Mod | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/vpkInstaller.Mod b/src/vpkInstaller.Mod
index e1d7eae..e56bbc0 100644
--- a/src/vpkInstaller.Mod
+++ b/src/vpkInstaller.Mod
@@ -100,7 +100,7 @@ BEGIN
         res := Platform.System(cmd^);
         IF res # 0 THEN Out.String("failed to run build command"); Out.Ln END;
         INC(j)
-      UNTIL j = keys.Count - 1;
+      UNTIL j = keys.Count;
     ELSE
       Out.String("no build info found for the package: "); Out.String(dep.name^); Out.Ln;
     END;
diff --git a/src/vpkJsonDepRetriever.Mod b/src/vpkJsonDepRetriever.Mod
index 7908d79..e1261bc 100644
--- a/src/vpkJsonDepRetriever.Mod
+++ b/src/vpkJsonDepRetriever.Mod
@@ -14,6 +14,7 @@ VAR
   cm, fl, bl: Json.jString;
   b: BOOLEAN;
 BEGIN
+  k := NIL; v := NIL;
   b := FALSE;
   jsonstr := NIL;
   vpkStorage.json2pstring(d.name^, jsonstr);