ET: avoid printing random strings when called by Makefile

OWASP · Oct 3, 2019 · a8b3242 · a8b3242
1 parent 1753ba1
commit a8b3242
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/o-saft.tcl b/o-saft.tcl
@@ -405,7 +405,7 @@ exec wish "$0" ${1+"$@"}
 #.       - some widget names are hardcoded
 #.
 #? VERSION
-#?      @(#) 1.226 Summer Edition 2019
+#?      @(#) 1.227 Summer Edition 2019
 #?
 #? AUTHOR
 #?      04. April 2015 Achim Hoffmann (at) sicsec de
@@ -475,10 +475,10 @@ proc copy2clipboard {w shift} {
 
 if {![info exists argv0]} { set argv0 "o-saft.tcl" };   # if it is a tclet
 
-set cfg(SID)    "@(#) o-saft.tcl 1.226 19/10/03 10:14:32"
+set cfg(SID)    "@(#) o-saft.tcl 1.227 19/10/03 10:16:35"
 set cfg(mySID)  "$cfg(SID) Spring Edition 2019"
                  # contribution to SCCS's "what" to avoid additional characters
-set cfg(VERSION) {1.226}
+set cfg(VERSION) {1.227}
 set cfg(TITLE)  {O-Saft}
 set cfg(RC)     {.o-saft.tcl}
 set cfg(RCmin)  1.13                   ;# expected minimal version of cfg(RC)
@@ -3144,7 +3144,7 @@ proc osaft_write_rc     {}  {
  #?      variables.
  #?
  #? VERSION
- #?      @(#) .o-saft.tcl generated by 1.226 19/10/03 10:14:32
+ #?      @(#) .o-saft.tcl generated by 1.227 19/10/03 10:16:35
  #?
  #? AUTHOR
  #?      dooh, who is author of this file? cultural, ethical, discussion ...
@@ -3683,6 +3683,7 @@ if {$cfg(VERB)==1 || $cfg(DEBUG)==1} {
         set max [wm maxsize .]
         set wmf [wm frame   .] ;# returns a pointer
         if {[info exists env(OSAFT_MAKE)] == 1} {
+            # SEE Make:OSAFT_MAKE (in Makefile.pod)
             set wmf {<<value not printed (OSAFT_MAKE exists)>>}
             # TODO: string should be STR_MAKEVAL from osaft.pm
         }