aboutsummaryrefslogtreecommitdiff
path: root/tclcompat.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tclcompat.tcl')
-rw-r--r--tclcompat.tcl5
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