No comments

diff --git a/src/WOKTclLib/WOKVC.RCS b/src/WOKTclLib/WOKVC.RCS
index cf1f9832f7e12e8678e0a1a0395a372ccf80aabd..5aae7d744ad59de7e340b6a7e1884e8e530339cb 100755 (executable)
--- a/src/WOKTclLib/WOKVC.RCS
+++ b/src/WOKTclLib/WOKVC.RCS
@@ -44,6 +44,7 @@ proc wokIntegre:BASE:InitFile { infile vrs cmt Sfile {fileid stdout} } {
     puts $fileid [format "rcs -q -i -U -t/tmp/%s %s" $bna.desc $pfx]
     puts $fileid [format "cp -p %s ./%s" $infile $pfx]
     puts $fileid [format "ci -u -f -r%s -m%s %s %s" $vrs $cmt $pfx $bnas]
+    puts $fileid [format "rm -f ./%s" $bna]
     puts $fileid [format "rm -f /tmp/%s " $bna.desc]
     return 
 }
@@ -112,7 +113,7 @@ proc wokIntegre:BASE:GetFile { Sfile invrs {fileid stdout} } {
            puts $fileid [format "co -u -r%s %s" $invrs $Sfile]
        }
     }
-    puts $fileid [format "chmod 644 $file"]
+    ;#puts $fileid [format "chmod 644 $file"]
     return
 }
 ;#/home/wb/kl/KERNEL/SCCS//BASES/TSTPACK.p/4,f_UGSuppliers.c,v  -->  4,f_UGSuppliers.c

diff --git a/src/WOKTclLib/WOKVC.SCCS b/src/WOKTclLib/WOKVC.SCCS
index 55a5df6d708d99414774541beb2fd18639dbc7f8..2491acdc7c23d4bb537777cddea2270517ada7fb 100755 (executable)
--- a/src/WOKTclLib/WOKVC.SCCS
+++ b/src/WOKTclLib/WOKVC.SCCS
@@ -135,6 +135,7 @@ proc wokIntegre:BASE:EOF { {fileid stdout} } {
 #    exp_internal -f file 1 : stdout and patterns in file + pattern on stderr
 #;<
 proc wokIntegre:BASE:Execute { VERBOSE command {fileid stdout} } {
+    package require Expect
     spawn -noecho sh $command
     set LOCID $spawn_id
     log_user 0