From: Brian Fraser <fraserbn@gmail.com>
Date: Sat, 11 Jun 2011 16:34:06 +0000 (-0300)
Subject: pad.h: Added a padadd_UTF8_NAME flag for pad_add_name_pvn.
X-Git-Tag: v5.15.1~85^2~11
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/9f6ec8dd8d5cdd18bbed7e4e89cec93bd2d8f9e7

pad.h: Added a padadd_UTF8_NAME flag for pad_add_name_pvn.
---

diff --git a/pad.h b/pad.h
index 8c3d76d..184b067 100644
--- a/pad.h
+++ b/pad.h
@@ -120,11 +120,12 @@ typedef enum {
 	padtidy_FORMAT		/* or a format */
 } padtidy_type;
 
-/* flags for pad_add_name_pvn. SVf_UTF8 will also be valid in the future.  */
+/* flags for pad_add_name_pvn. */
 
-#define padadd_OUR		0x01	/* our declaration. */
-#define padadd_STATE		0x02	/* state declaration. */
-#define padadd_NO_DUP_CHECK	0x04	/* skip warning on dups. */
+#define padadd_OUR		0x01	   /* our declaration. */
+#define padadd_STATE		0x02	   /* state declaration. */
+#define padadd_NO_DUP_CHECK	0x04	   /* skip warning on dups. */
+#define padadd_UTF8_NAME	SVf_UTF8   /* name is UTF-8 encoded. */
 
 /* ASSERT_CURPAD_LEGAL and ASSERT_CURPAD_ACTIVE respectively determine
  * whether PL_comppad and PL_curpad are consistent and whether they have