From 92083f41130290f9e2cf1eedc5750a348fd11809 Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Tue, 12 Oct 2010 20:29:05 +1000
Subject: Portability fixes

Especially for eCos, mingw32 and cygwin

Signed-off-by: Steve Bennett <steveb@workware.net.au>
---
 tclcompat.tcl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'tclcompat.tcl')

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
 #
-- 
cgit v1.1