mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
5de0053178
Fixes <http://bugs.gnu.org/10742>. Reported by Alírio Eyng <alirioeyng@ig.com.br>. * gnulib-local/lib/localcharset.c.diff (environ_locale_charset): Change to set CODESET to "" when LOCALE lacks a dot. Return "ISO-8859-1" when CODESET is the empty string. * lib/localcharset.c: Update. * test-suite/standalone/Makefile.am (check_SCRIPTS): Add `test-command-line-encoding2'. (TESTS): Likewise. * test-suite/standalone/test-command-line-encoding2: New file.
20 lines
455 B
Bash
Executable file
20 lines
455 B
Bash
Executable file
#!/bin/sh
|
|
|
|
# Choose a locale name that lacks a dot followed by the encoding name.
|
|
# This should not confuse `environ_locale_charset'.
|
|
# See <http://bugs.gnu.org/10742> for the original bug report.
|
|
LC_ALL="en_US"
|
|
export LC_ALL
|
|
unset LANG
|
|
unset LC_CTYPE
|
|
|
|
exec guile -q -s "$0" "hello"
|
|
!#
|
|
|
|
;; Make sure our argument was suitable decoded.
|
|
(exit (string=? (cadr (program-arguments)) "hello"))
|
|
|
|
;; Local Variables:
|
|
;; mode: scheme
|
|
;; coding: iso-8859-1
|
|
;; End:
|