From 4c1060812937b8380199ef84b4b2c10c384b7bc7 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Fri, 21 Jun 2013 14:19:30 -0600
Subject: [PATCH] perldata: More identifier definition fix

Commit 9c1129c7de15ff8044f606550980c47f8c1724e9 did not update the
(?(DEFINE).  This does that.
---
 pod/perldata.pod | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pod/perldata.pod b/pod/perldata.pod
index e46507a..235177b 100644
--- a/pod/perldata.pod
+++ b/pod/perldata.pod
@@ -176,12 +176,13 @@ Put together, a grammar to match a basic identifier becomes
       (?<basic_identifier>
         # is use utf8 on?
           (?(?{ (caller(0))[8] & $utf8::hint_bits })
-              (?&Perl_XIDS) \p{XID_Continue}*
+              (?&Perl_XIDS) (?&Perl_XIDC)*
             | (?aa) (?!\d) \w+
           )
       )
       (?<sigil> [&*\$\@\%])
       (?<Perl_XIDS> (?[ ( \p{Word} & \p{XID_Start} ) + [_] ]) )
+      (?<Perl_XIDC> (?[ \p{Word} & \p{XID_Continue} ]) )
   )
  /x
 
-- 
2.7.4