summaryrefslogtreecommitdiff
path: root/perly.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-03-08 23:33:05 +0000
committerNicholas Clark <nick@ccl4.org>2006-03-08 23:33:05 +0000
commit991291971c0fe19bdc39018b7d7361ccc75bdbcf (patch)
treec305f49a65877295fe80285cc555f83ad12de71a /perly.c
parent81d867050a6cadfec251cfdfd6a537281c0f3eac (diff)
downloadperl-991291971c0fe19bdc39018b7d7361ccc75bdbcf.tar.gz
Make MAD at least compile and link once more. Although it's now failing
6 regression tests. p4raw-id: //depot/perl@27429
Diffstat (limited to 'perly.c')
-rw-r--r--perly.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/perly.c b/perly.c
index 18f8606bff..03d0599a2d 100644
--- a/perly.c
+++ b/perly.c
@@ -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