Parent Directory | Revision Log | Patch
revision 1.1 by rsavoye, Fri Apr 26 05:56:50 2002 UTC | revision 1.2 by bje, Tue Aug 19 00:11:43 2003 UTC | |
---|---|---|
# | Line 49 proc find_rawsid { } { | Line 49 proc find_rawsid { } { |
49 | set tcl_library "$srcdir/tcl/library" | set tcl_library "$srcdir/tcl/library" |
50 | global host_os | global host_os |
51 | switch -glob $host_os { | switch -glob $host_os { |
52 | {cygwin*} { set tcl_library [exec cygpath -w $tcl_library] } | {cygwin*} { set tcl_library [exec cygpath -w $tcl_library] } |
53 | } | } |
54 | set env(TCL_LIBRARY) $tcl_library | set env(TCL_LIBRARY) $tcl_library |
55 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |