diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-03-09 20:48:18 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-03-09 20:48:18 +0000 |
| commit | 00e74f145ac4513e21f301b1f6ee9d0075465ab5 (patch) | |
| tree | 83d05eaea8f9c9fc05f95ef9de0dd2a9a209d563 /perly.c | |
| parent | af5683d1a11b86657bb9d3800d54c4d65ca7b5a0 (diff) | |
| download | perl-00e74f145ac4513e21f301b1f6ee9d0075465ab5.tar.gz | |
Add the madly parser. I believe that this is all the C code. Now to
find the bugs that stowed away.
p4raw-id: //depot/perl@27447
Diffstat (limited to 'perly.c')
| -rw-r--r-- | perly.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -297,8 +297,8 @@ Perl_yyparse (pTHX) int yylen; #ifdef PERL_MAD - /*if (PL_madskills) - return madparse();*/ + if (PL_madskills) + return madparse(); #endif YYDPRINTF ((Perl_debug_log, "Starting parse\n")); @@ -409,7 +409,7 @@ Perl_yyparse (pTHX) if (yychar == YYEMPTY) { YYDPRINTF ((Perl_debug_log, "Reading a token: ")); #ifdef PERL_MAD - yychar = /*PL_madskills ? madlex() :*/ yylex(); + yychar = PL_madskills ? madlex() : yylex(); #else yychar = yylex(); #endif |