perldata: More identifier definition fix

Commit 9c1129c7de15ff8044f606550980c47f8c1724e9 did not update the
(?(DEFINE).  This does that.

diff --git a/pod/perldata.pod b/pod/perldata.pod
index e46507a..235177b 100644 (file)
--- 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