diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-03 18:01:06 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:05 -0700 |
| commit | 8d2a5fb44f375599c14c4c03cdec3954962a2ef5 (patch) | |
| tree | f75989f257f2504440cb8ee161c655e71d9d4e89 /perly.y | |
| parent | 2e800d795e15b864092072119d45b4d3b18b4c88 (diff) | |
| download | perl-8d2a5fb44f375599c14c4c03cdec3954962a2ef5.tar.gz | |
perly.y: Remove MYSUB
This token is not used any more.
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 14 |
1 files changed, 1 insertions, 13 deletions
@@ -84,7 +84,7 @@ %token <i_tkval> FUNC0 FUNC1 FUNC UNIOP LSTOP %token <i_tkval> RELOP EQOP MULOP ADDOP %token <i_tkval> DOLSHARP DO HASHBRACK NOAMP -%token <i_tkval> LOCAL MY MYSUB REQUIRE +%token <i_tkval> LOCAL MY REQUIRE %token <i_tkval> COLONATTR FORMLBRACK FORMRBRACK %type <ival> grammar remember mremember @@ -364,18 +364,6 @@ barestmt: PLUGSTMT #endif intro_my(); } - | MYSUB startsub subname proto subattrlist subbody - { - /* Unimplemented "my sub foo { }" */ - SvREFCNT_inc_simple_void(PL_compcv); -#ifdef MAD - $$ = newMYSUB($2, $3, $4, $5, $6); - token_getmad($1,$$,'d'); -#else - newMYSUB($2, $3, $4, $5, $6); - $$ = (OP*)NULL; -#endif - } | PACKAGE WORD WORD ';' { #ifdef MAD |