}
proc realtime-inputline {dummy l} {
- global detectlag replay me
+ global detectlag replay cmdstdin
global executing currentcmd currentconn
- if {$me && [regexp {^%(.*)} $l dummy rhs]} {
+ if {$cmdstdin && [regexp {^%(.*)} $l dummy rhs]} {
set r [catch { uplevel #0 $rhs } emsg]
if {$r} { puts "** $emsg\n" } else { puts "=> $emsg\n" }
return