diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-03-04 16:36:47 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-03-04 16:36:47 (GMT) |
commit | 45885a67c8ec1dfcd207721a2a38afd14a415a2c (patch) | |
tree | 006becc9748ec43a3806573f12d5a413e28c8114 /generic | |
parent | 761897c234e411b8ede7cad7cd97826eeaae9850 (diff) | |
download | tcl-45885a67c8ec1dfcd207721a2a38afd14a415a2c.zip tcl-45885a67c8ec1dfcd207721a2a38afd14a415a2c.tar.gz tcl-45885a67c8ec1dfcd207721a2a38afd14a415a2c.tar.bz2 |
Patch from the cygwin folks
Diffstat (limited to 'generic')
-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 b576daf..0caa28b 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -290,6 +290,12 @@ Tcl_LoadObjCmd(dummy, interp, objc, objv) && (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) |