diff options
author | Nicholas Clark <nick@ccl4.org> | 2004-12-31 18:31:18 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2004-12-31 18:31:18 +0000 |
commit | 91f565cb7917a150a12e99a1cdc75421ac152718 (patch) | |
tree | cc709800470f1289700dbe0591e8130facffd69d /gv.c | |
parent | cc4c2da608ba3dce3152988597a4f7b3e12c599d (diff) | |
download | perl-91f565cb7917a150a12e99a1cdc75421ac152718.tar.gz |
Tidy up comments in change 23716
p4raw-id: //depot/perl@23717
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -832,7 +832,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) if (len > 1) { if (*name > 'V' ) { /* Nothing else to do. - The compile will probably turn the switch statement into a + The compiler will probably turn the switch statement into a branch table. Make sure we avoid even that small overhead for the common case of lower case variable names. */ } else { @@ -916,7 +916,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) if (strEQ(name2, "AINT")) goto ro_magicalize; break; - case '\025': + case '\025': /* $^UNICODE */ if (strEQ(name2, "NICODE")) goto ro_magicalize; break; |