diff options
| -rwxr-xr-x | git-gui.sh | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/git-gui.sh b/git-gui.sh index 63c2f48f91..2c83ed5066 100755 --- a/git-gui.sh +++ b/git-gui.sh @@ -74,6 +74,19 @@ proc is_Cygwin {} { } ###################################################################### +## Enable Tcl8 profile in Tcl9, allowing consumption of data that has +## bytes not conforming to the assumed encoding profile. + +if {[package vcompare $::tcl_version 9.0] >= 0} { + rename open _strict_open + proc open args { + set f [_strict_open {*}$args] + chan configure $f -profile tcl8 + return $f + } +} + +###################################################################### ## ## PATH lookup. Sanitize $PATH, assure exec/open use only that |