diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-10-12 20:29:05 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:57 +1000 |
| commit | 92083f41130290f9e2cf1eedc5750a348fd11809 (patch) | |
| tree | 7f848baf4a549979cf495c6347a6d5385e008a45 /tclcompat.tcl | |
| parent | 0e2703df31a67c57e23954943f7980c5cc309755 (diff) | |
| download | jimtcl-92083f41130290f9e2cf1eedc5750a348fd11809.zip jimtcl-92083f41130290f9e2cf1eedc5750a348fd11809.tar.gz jimtcl-92083f41130290f9e2cf1eedc5750a348fd11809.tar.bz2 | |
Portability fixes
Especially for eCos, mingw32 and cygwin
Signed-off-by: Steve Bennett <steveb@workware.net.au>
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 # |