# HG changeset patch # User jld # Date 1043427527 0 # Node ID b23d7922f5edc1c2e8f25efeb618bdc2c0d9e228 # Parent 5b6aacdd7c0dd6a018e0787cd36c833c138cd9f6 * ecosadmin.tcl: Accommodate latest Cygwin Tcl shell (tclsh83.exe) diff --git a/packages/ChangeLog b/packages/ChangeLog --- a/packages/ChangeLog +++ b/packages/ChangeLog @@ -1,3 +1,7 @@ +2003-01-24 John Dallaway + + * ecosadmin.tcl: Accommodate latest Cygwin Tcl shell (tclsh83.exe) + 2003-01-22 Jonathan Larmour * ecos.db: Add CYGPKG_LINUX_COMPAT. Not a compatibility layer diff --git a/packages/ecosadmin.tcl b/packages/ecosadmin.tcl --- a/packages/ecosadmin.tcl +++ b/packages/ecosadmin.tcl @@ -2,6 +2,8 @@ # these lines restart using the tcl shell \ exec sh -c "if ( echo | tclsh ) 2>/dev/null ; then \ exec tclsh \"${0}\" ${1+${*}} ; \ + elif ( echo | tclsh83 ) 2>/dev/null ; then \ + exec tclsh83 \"${0}\" ${1+${*}} ; \ elif ( echo | cygtclsh80 ) 2>/dev/null ; then \ exec cygtclsh80 \"${0}\" ${1+${*}} ; \ else \