From a4406a4f5b2cb0fd9fe0d79cf5611b61855d0a3d Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Mon, 24 Feb 2020 13:44:21 +0300
Subject: [PATCH] clear old string after DswOpts.GetOpt

---
 src/generic/Dsw/Mod/Opts.cp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/generic/Dsw/Mod/Opts.cp b/src/generic/Dsw/Mod/Opts.cp
index f4fc7d1..3262528 100644
--- a/src/generic/Dsw/Mod/Opts.cp
+++ b/src/generic/Dsw/Mod/Opts.cp
@@ -40,6 +40,7 @@ MODULE DswOpts;
   PROCEDURE GetOpt* (IN optstring: ARRAY OF CHAR): CHAR;
     VAR opt, ch: CHAR; i: INTEGER;
   BEGIN
+    str := NIL;
     IF argn >= LEN(args) THEN
       opt := 0X; optMode := FALSE (* eof *)
     ELSIF optMode & IsOpt(args[argn, argi]) OR (args[argn, argi] = "-") & IsOpt(args[argn, argi + 1]) THEN
-- 
2.29.2