diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 20:26:43 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 20:26:43 +0000 |
| commit | 0f303493c65bc7de97980f1ff363e7d45c736c65 (patch) | |
| tree | 796a15f826fc05502fd59b75e92ed274c1ebe66a /toke.c | |
| parent | 10609e9a342de3bae37d4ac9f8d8bc93c0a4e896 (diff) | |
| download | perl-0f303493c65bc7de97980f1ff363e7d45c736c65.tar.gz | |
add comments on GV_FOO constants, s/8/GV_ADDINEVAL/
p4raw-id: //depot/perl@1322
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -544,7 +544,7 @@ force_ident(register char *s, int kind) /* XXX see note in pp_entereval() for why we forgo typo warnings if the symbol must be introduced in an eval. GSAR 96-10-12 */ - gv_fetchpv(s, in_eval ? (GV_ADDMULTI | 8) : TRUE, + gv_fetchpv(s, in_eval ? (GV_ADDMULTI | GV_ADDINEVAL) : TRUE, kind == '$' ? SVt_PV : kind == '@' ? SVt_PVAV : kind == '%' ? SVt_PVHV : @@ -1522,7 +1522,7 @@ yylex(void) /* build ops for a bareword */ yylval.opval = (OP*)newSVOP(OP_CONST, 0, newSVpv(tokenbuf+1, 0)); yylval.opval->op_private = OPpCONST_ENTERED; - gv_fetchpv(tokenbuf+1, in_eval ? (GV_ADDMULTI | 8) : TRUE, + gv_fetchpv(tokenbuf+1, in_eval ? (GV_ADDMULTI | GV_ADDINEVAL) : TRUE, ((tokenbuf[0] == '$') ? SVt_PV : (tokenbuf[0] == '@') ? SVt_PVAV : SVt_PVHV)); |