Browse Source

fix pwsh calling problem

master
Julian Noble 2 years ago
parent
commit
858241ea22
  1. 4
      src/punk86.vfs/lib/app-shellspy/shellspy.tcl

4
src/punk86.vfs/lib/app-shellspy/shellspy.tcl

@ -303,11 +303,13 @@ namespace eval shellspy {
proc do_in_powershell_terminal {args} { proc do_in_powershell_terminal {args} {
variable shellspy_status_log variable shellspy_status_log
shellfilter::log::write $shellspy_status_log "do_in_powershell_terminal got '$args'" shellfilter::log::write $shellspy_status_log "do_in_powershell_terminal got '$args'"
set args [do_callback powershell {*}$args]
set params [do_callback_parameters powershell]
dict set params -teehandle shellspy dict set params -teehandle shellspy
set params [dict merge $params [get_channel_config $::testconfig]] ;#working: 5 unbuffered, 6 linebuffered set params [dict merge $params [get_channel_config $::testconfig]] ;#working: 5 unbuffered, 6 linebuffered
set cmdlist [list pwsh -nologo -noprofile -c {*}$args] set cmdlist [list pwsh -nologo -noprofile -c {*}$args]
set cmdlist [shellfilter::get_scriptrun $cmdlist] set cmdlist [shellfilter::get_scriptrun_from_cmdlist_dquote_if_not $cmdlist]
shellfilter::log::write $shellspy_status_log "do_in_powershell_terminal as script: '$cmdlist'" shellfilter::log::write $shellspy_status_log "do_in_powershell_terminal as script: '$cmdlist'"
set exitinfo [shellfilter::run $cmdlist {*}$params] set exitinfo [shellfilter::run $cmdlist {*}$params]

Loading…
Cancel
Save