From dd06820e01394d1d26a02d1c26f7ef17f8f4a854 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Tue, 23 Aug 2022 05:29:42 +0400
Subject: [PATCH] initializing some strings with zeros.

---
 src/unix/vpkGit.Mod         | 2 +-
 src/vpkJsonDepRetriever.Mod | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/unix/vpkGit.Mod b/src/unix/vpkGit.Mod
index 7fec876..ffca554 100644
--- a/src/unix/vpkGit.Mod
+++ b/src/unix/vpkGit.Mod
@@ -1,5 +1,5 @@
 MODULE vpkGit;
-IMPORT Out, Strings, Platform, vpkEnv;
+IMPORT Out, Strings, Platform, vpkEnv, strutils;
 
 PROCEDURE pull*(VAR url : ARRAY OF CHAR; VAR dst : ARRAY OF CHAR; VAR branch: ARRAY OF CHAR);
 VAR i : INTEGER;
diff --git a/src/vpkJsonDepRetriever.Mod b/src/vpkJsonDepRetriever.Mod
index 6570926..2b8fecc 100644
--- a/src/vpkJsonDepRetriever.Mod
+++ b/src/vpkJsonDepRetriever.Mod
@@ -36,6 +36,9 @@ VAR
   keys, values: StringList.TStringList;
   i: LONGINT;
 BEGIN
+  strutils.zeroStr(URI);
+  strutils.zeroStr(type);
+  strutils.zeroStr(branch);
   p := NIL;
   vpkStorage.json2pstring(d.name^, p);
   IF p # NIL THEN