diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-06-21 14:19:30 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-06-21 14:27:29 -0600 |
| commit | 4c1060812937b8380199ef84b4b2c10c384b7bc7 (patch) | |
| tree | 69b870b4af84a4a4530b39af14d8079de47a1592 /pod | |
| parent | a68a39540f0d7418b9dc28bac68bbb6ddc73d0fd (diff) | |
| download | perl-4c1060812937b8380199ef84b4b2c10c384b7bc7.tar.gz | |
perldata: More identifier definition fix
Commit 9c1129c7de15ff8044f606550980c47f8c1724e9 did not update the
(?(DEFINE). This does that.
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/perldata.pod | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pod/perldata.pod b/pod/perldata.pod index e46507a759..235177b63a 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 |