toke.c: Fail on malformed UTF-8 in \N{} input

[perl5.git] / utf8.h

diff --git a/utf8.h b/utf8.h
index 5330e21..7472de1 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -8,6 +8,9 @@
  *
  */
 
+#ifndef H_UTF8      /* Guard against recursive inclusion */
+#define H_UTF8 1
+
 /* Use UTF-8 as the default script encoding?
  * Turning this on will break scripts having non-UTF-8 binary
  * data (such as Latin-1) in string literals. */
@@ -514,6 +517,8 @@ Perl's extended UTF-8 means we can have start bytes up to FF.
 #   define IS_UTF8_CHAR_FAST(n) ((n) <= 4)
 #endif
 
+#endif /* H_UTF8 */
+
 /*
  * Local variables:
  * c-indentation-style: bsd