From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 2 Jan 2007 19:44:23 +0000 (+0000)
Subject: fix -Mad build breakage
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93c535ac3c07a4674324635bcb8ecc089468009f;p=p5sagit%2Fp5-mst-13.2.git

fix -Mad build breakage

p4raw-id: //depot/perl@29667
---

diff --git a/perly.c b/perly.c
index af09290..94da31f 100644
--- a/perly.c
+++ b/perly.c
@@ -296,6 +296,7 @@ S_clear_yystack(pTHX_  const yy_parser *parser)
 
 /* delete a parser object */
 
+#ifndef PERL_IN_MADLY_C
 void
 Perl_parser_free(pTHX_  const yy_parser *parser)
 {
@@ -303,7 +304,7 @@ Perl_parser_free(pTHX_  const yy_parser *parser)
     Safefree(parser->stack);
     PL_parser = parser->old_parser;
 }
-
+#endif
 
 /*----------.
 | yyparse.  |