diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-28 16:22:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-28 16:22:26 +0000 |
| commit | 945c54fd8d2501611a8e97dae49e901ff9478cad (patch) | |
| tree | e7be4ebc0dbd9964ba352f90cf3c58042fb44318 /toke.c | |
| parent | 494f3023e6cb99f0f26ded70a0869fe24d04973e (diff) | |
| download | perl-945c54fd8d2501611a8e97dae49e901ff9478cad.tar.gz | |
Undo qu. Retract #8814, rewrite op/each part of #8615,
retract toke.c/qu parts of #8583, retract #8485, retract
or rewrite qu parts of #8439 of toke.c, keywords.h, keywords.pl,
op/length.t, and MANIFEST, and delete t/op/qu.t.
p4raw-id: //depot/perl@8967
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -4744,11 +4744,7 @@ Perl_yylex(pTHX) TOKEN('('); case KEY_qq: - case KEY_qu: s = scan_str(s,FALSE,FALSE); - if (tmp == KEY_qu && - is_utf8_string((U8*)SvPVX(PL_lex_stuff), SvCUR(PL_lex_stuff))) - SvUTF8_on(PL_lex_stuff); if (!s) missingterm((char*)0); yylval.ival = OP_STRINGIFY; @@ -5581,7 +5577,6 @@ Perl_keyword(pTHX_ register char *d, I32 len) if (strEQ(d,"q")) return KEY_q; if (strEQ(d,"qr")) return KEY_qr; if (strEQ(d,"qq")) return KEY_qq; - if (strEQ(d,"qu")) return KEY_qu; if (strEQ(d,"qw")) return KEY_qw; if (strEQ(d,"qx")) return KEY_qx; } |