From: Steve Hay <SteveHay@planit.com>
Date: Mon, 17 Jul 2006 14:23:59 +0000 (+0000)
Subject: Avoid an error that VC++'s resource compiler seems to have
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96f4e2269315e1961a4e9db45c14fef0dbfeee02;p=p5sagit%2Fp5-mst-13.2.git

Avoid an error that VC++'s resource compiler seems to have
with a reference to "perly.y" in "perly.h"

See the thread here for details:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2006-07/msg00460.html

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

diff --git a/perly.h b/perly.h
index c5b5494..38bad2a 100644
--- a/perly.h
+++ b/perly.h
@@ -175,7 +175,6 @@
 
 #endif /* PERL_CORE */
 #if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
-#line 30 "perly.y"
 typedef union YYSTYPE {
     I32	ival;
     char *pval;
@@ -186,7 +185,6 @@ typedef union YYSTYPE {
     GV *gvval;
 } YYSTYPE;
 /* Line 1447 of yacc.c.  */
-#line 188 "perly.h"
 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
 # define YYSTYPE_IS_DECLARED 1
 # define YYSTYPE_IS_TRIVIAL 1
diff --git a/regen_perly.pl b/regen_perly.pl
index 95e209b..f3b3f59 100644
--- a/regen_perly.pl
+++ b/regen_perly.pl
@@ -105,7 +105,8 @@ chmod 0444, $tab_file;
 unlink $tmpc_file;
 
 # Wrap PERL_CORE round the symbol definitions. Also,  the
-# C<#line 123 "perlytmp.h"> gets picked up by make depend, so change it.
+# C<#line 30 "perly.y"> confuses the Win32 resource compiler and the
+# C<#line 188 "perlytmp.h"> gets picked up by make depend, so remove them.
 
 open TMPH_FILE, $tmph_file or die "Can't open $tmph_file: $!\n";
 chmod 0644, $h_file;
@@ -117,7 +118,7 @@ while (<TMPH_FILE>) {
 	print H_FILE "#endif /* PERL_CORE */\n";
 	$endcore_done = 1;
     }
-    s/"$tmph_file"/"$h_file"/;
+    next if /^#line \d+ ".*"/;
     print H_FILE $_;
 }
 close TMPH_FILE;