X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perly.c;h=18f8606bffd669b98605c3dbe6bb577ea442f9e9;hb=0626a780e6ccb4eb0c4c4129aa294a3687905605;hp=03d0599a2d1da852d3be1a1cc20a43121756a6e6;hpb=991291971c0fe19bdc39018b7d7361ccc75bdbcf;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perly.c b/perly.c
index 03d0599..18f8606 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