commit 9d58570c77240fed53d1f88217877f8e778f4bb2
author Paul Smith <psmith@gnu.org> Sat Oct 26 00:10:17 2013 -0400
committer Paul Smith <psmith@gnu.org> Sun Oct 27 17:43:21 2013 -0400
tree dde26bb0aa35ebc2f7790f434f0e94a93ee18577
parent d49ab08ae027b241966b6ab9cc4514efefae829e

* makeint.h (STOP_SET): [SV 40371] Cast to unsigned char.

* tests/scripts/misc/utf8: Test variable names with characters >127.
Fix suggested by Robert Bogomip <bob.bogo@milohedge.com>

makeint.h

diff --git a/makeint.h b/makeint.h
index 77f51e0..c591427 100644
--- a/makeint.h
+++ b/makeint.h
@@ -415,7 +415,7 @@
 # define MAP_VMSCOMMA   0x0000
 #endif
 
-#define STOP_SET(_v,_m) ANY_SET (stopchar_map[(int)(_v)],(_m))
+#define STOP_SET(_v,_m) ANY_SET (stopchar_map[(unsigned char)(_v)],(_m))
 
 #if defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT) && defined(HAVE_SETRLIMIT)
 # define SET_STACK_SIZE

tests/scripts/misc/utf8

diff --git a/tests/scripts/misc/utf8 b/tests/scripts/misc/utf8
new file mode 100644
index 0000000..2adcd07
--- /dev/null
+++ b/tests/scripts/misc/utf8
@@ -0,0 +1,14 @@
+#                                                                    -*-perl-*-
+$description = "Test utf8 handling.";
+
+$details = "";
+
+# Variable names containing UTF8 characters
+run_make_test("
+\xe2\x96\xaa := hello
+\$(info \$(\xe2\x96\xaa))
+all:
+",
+              '', "hello\n#MAKE#: Nothing to be done for 'all'.");
+
+1;