diff options
author | Yves Orton <demerphq@gmail.com> | 2023-03-13 18:45:39 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-03-14 20:09:01 +0800 |
commit | 6c12e0ee216a4005debef2334035abf818726587 (patch) | |
tree | 490b3b40fc74dfbb26c9fefcaf794986b2d40922 /gv.c | |
parent | e34ab2f7832c24c8bb6f4ae13126df008b6e9f42 (diff) | |
download | perl-6c12e0ee216a4005debef2334035abf818726587.tar.gz |
gv.c - in comments for ${^LONG_NAMES} use the curly braces
You can't say $^ENCODING, you need to say ${^ENCODING}, so spell it
right in the comments.
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -2211,29 +2211,29 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, require_tie_mod_s(gv, '-', "Tie::Hash::NamedCapture",0); } break; - case '\005': /* $^ENCODING */ + case '\005': /* ${^ENCODING} */ if (memEQs(name, len, "\005NCODING")) goto magicalize; break; - case '\007': /* $^GLOBAL_PHASE */ + case '\007': /* ${^GLOBAL_PHASE} */ if (memEQs(name, len, "\007LOBAL_PHASE")) goto ro_magicalize; break; - case '\014': /* $^LAST_FH */ + case '\014': /* ${^LAST_FH} */ if (memEQs(name, len, "\014AST_FH")) goto ro_magicalize; break; - case '\015': /* $^MATCH */ + case '\015': /* ${^MATCH} */ if (memEQs(name, len, "\015ATCH")) { paren = RX_BUFF_IDX_CARET_FULLMATCH; goto storeparen; } break; - case '\017': /* $^OPEN */ + case '\017': /* ${^OPEN} */ if (memEQs(name, len, "\017PEN")) goto magicalize; break; - case '\020': /* $^PREMATCH $^POSTMATCH */ + case '\020': /* ${^PREMATCH} ${^POSTMATCH} */ if (memEQs(name, len, "\020REMATCH")) { paren = RX_BUFF_IDX_CARET_PREMATCH; goto storeparen; |