You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2016/11/11 14:47:24 UTC
svn commit: r1769293 - in /tcl/rivet/trunk/rivet: init.tcl init.tcl.in
Author: mxmanghi
Date: Fri Nov 11 14:47:24 2016
New Revision: 1769293
URL: http://svn.apache.org/viewvc?rev=1769293&view=rev
Log:
fix script concatenation in init.tcl.in
Modified:
tcl/rivet/trunk/rivet/init.tcl
tcl/rivet/trunk/rivet/init.tcl.in
Modified: tcl/rivet/trunk/rivet/init.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/init.tcl?rev=1769293&r1=1769292&r2=1769293&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/init.tcl (original)
+++ tcl/rivet/trunk/rivet/init.tcl Fri Nov 11 14:47:24 2016
@@ -163,11 +163,11 @@ namespace eval ::Rivet {
}
- set script [concat $before_script "\n" $script "\n" $after_script]
+ set script [join [list $before_script $script $after_script] "\n"]
- set fp [open "/tmp/script-[pid].tcl" w+]
- puts $fp $script
- close $fp
+ #set fp [open "/tmp/script-[pid].tcl" w+]
+ #puts $fp $script
+ #close $fp
return $script
}
@@ -240,6 +240,7 @@ namespace eval ::Rivet {
#<after-every-script>
}
}
+ ######## mod_rivet_ng specific ---------
######## mod_rivet_ng specific ---------
Modified: tcl/rivet/trunk/rivet/init.tcl.in
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/init.tcl.in?rev=1769293&r1=1769292&r2=1769293&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/init.tcl.in (original)
+++ tcl/rivet/trunk/rivet/init.tcl.in Fri Nov 11 14:47:24 2016
@@ -163,11 +163,11 @@ namespace eval ::Rivet {
}
- set script [concat $before_script "\n" $script "\n" $after_script]
+ set script [join [list $before_script $script $after_script] "\n"]
- set fp [open "/tmp/script-[pid].tcl" w+]
- puts $fp $script
- close $fp
+ #set fp [open "/tmp/script-[pid].tcl" w+]
+ #puts $fp $script
+ #close $fp
return $script
}
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org