diff options
| author | Steve Bennett <steveb@workware.net.au> | 2023-09-14 16:14:10 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2024-09-20 11:20:56 +1000 |
| commit | 2cae913525c0e265419dd2645d70300b5d037735 (patch) | |
| tree | 762baf3d2723b090888034396e784b844ad83f36 | |
| parent | bc73a8f6aa83b0213629d4044a2ebc9adbfc9c3a (diff) | |
| download | jimtcl-2cae913525c0e265419dd2645d70300b5d037735.zip jimtcl-2cae913525c0e265419dd2645d70300b5d037735.tar.gz jimtcl-2cae913525c0e265419dd2645d70300b5d037735.tar.bz2 | |
popen: no need to implement getfd
Unknown commands are automatically passed through to the underlying
handle
Signed-off-by: Steve Bennett <steveb@workware.net.au>
| -rw-r--r-- | tclcompat.tcl | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index 3485d00..fb22190 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -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 |