diff options
Diffstat (limited to 'tclcompat.tcl')
-rw-r--r-- | tclcompat.tcl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index 3485d00..14ce688 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -48,7 +48,7 @@ if {[exists -command stdout]} { $f buffering $v } -tr* { - # Just ignore -translation + $f translation $v } default { return -code error "fconfigure: unknown option $n" @@ -137,9 +137,6 @@ proc popen {cmd {mode r}} { if {$cmd eq "pid"} { return $pids } - if {$cmd eq "getfd"} { - $f getfd - } if {$cmd eq "close"} { $f close # And wait for the child processes to complete |