diff options
Diffstat (limited to 'tclcompat.tcl')
-rw-r--r-- | tclcompat.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index 398a916..d6fa23e 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -170,6 +170,7 @@ proc popen {cmd {mode r}} { } # A wrapper around 'pid' which can return the pids for 'popen' +if {[info commands pid] ne ""} { rename pid .pid proc pid {{chan {}}} { if {$chan eq ""} { @@ -183,6 +184,7 @@ proc pid {{chan {}}} { } return $pids } +} # try/on/finally conceptually similar to Tcl 8.6 # |