diff options
| author | Jan Dubois <jand@activestate.com> | 2010-03-02 16:24:23 -0800 |
|---|---|---|
| committer | Jan Dubois <jand@activestate.com> | 2010-03-02 22:24:37 -0800 |
| commit | 10517af500e340b88209d95ddbb26f6252464272 (patch) | |
| tree | 12d03dce1d8f7d0e01a07f007647b91797d0f7e6 /toke.c | |
| parent | c06820fb26255c7ec0b8366ded45c6d7f2caf6b1 (diff) | |
| download | perl-10517af500e340b88209d95ddbb26f6252464272.tar.gz | |
Revert "Forbid labels with keyword names"
This reverts commit f71d6157c7933c0d3df645f0411d97d7e2b66b2f.
Revert "Add new error "Can't use keyword '%s' as a label""
This reverts commit 28ccebc469d90664106fcc1cb73d7321c4b60716.
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -6143,8 +6143,6 @@ Perl_yylex(pTHX) /* Is this a label? */ if (!anydelim && PL_expect == XSTATE && d < PL_bufend && *d == ':' && *(d + 1) != ':') { - if (tmp) - Perl_croak(aTHX_ "Can't use keyword '%s' as a label", PL_tokenbuf); s = d + 1; pl_yylval.pval = CopLABEL_alloc(PL_tokenbuf); CLINE; |