diff options
author | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-03-04 16:38:22 (GMT) |
---|---|---|
committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-03-04 16:38:22 (GMT) |
commit | 8da60d747906312c7003ef479fe7382231277802 (patch) | |
tree | 9e274cdbd334b76e1188eea62fee37cf6ce2c1e6 /generic/tclLoad.c | |
parent | 53f9c66ccc0d8b6f60b1fee6517a8fb24cf82908 (diff) | |
parent | 555abfe6b88a16182b2100eddd1634eb4b7cf356 (diff) | |
download | tcl-8da60d747906312c7003ef479fe7382231277802.zip tcl-8da60d747906312c7003ef479fe7382231277802.tar.gz tcl-8da60d747906312c7003ef479fe7382231277802.tar.bz2 |
Patch from the cygwin folks
FossilOrigin-Name: 8dafecc06c0b746cac26875866ca3846719a07a6
Diffstat (limited to 'generic/tclLoad.c')
-rw-r--r-- | generic/tclLoad.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index e64d0e0..ac863b9 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -308,6 +308,12 @@ Tcl_LoadObjCmd( && (pkgGuess[2] == 'b')) { pkgGuess += 3; } +#ifdef __CYGWIN__ + if ((pkgGuess[0] == 'c') && (pkgGuess[1] == 'y') + && (pkgGuess[2] == 'g')) { + pkgGuess += 3; + } +#endif /* __CYGWIN__ */ for (p = pkgGuess; *p != 0; p += offset) { offset = Tcl_UtfToUniChar(p, &ch); if ((ch > 0x100) |