From: John Tobey <jtobey@user1.channel1.com>
Date: Fri, 5 Sep 1997 00:00:00 +0000 (+0000)
Subject: xsubpp fix to allow #ifdef's around entire XSubs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3308daf9dca01364c4abacd44066e73a758e9a5;p=p5sagit%2Fp5-mst-13.2.git

xsubpp fix to allow #ifdef's around entire XSubs

This rather trivial patch fixes a feature broken in 5.004_02's
xsubpp.  Namely, #line directives are interfering with the ability to
put #ifdef around entire XSubs.

(Well I'm glad I caught my own bug. ;-)  Hope it didn't break too many
of the CPAN modules!!)

p5p-msgid: 199709070034.AAA16457@remote119
---

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index ac1378d..04de166 100755
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -87,7 +87,7 @@ sub Q ;
 
 # Global Constants
 
-$XSUBPP_version = "1.9504";
+$XSUBPP_version = "1.9505";
 
 my ($Is_VMS, $SymSet);
 if ($^O eq 'VMS') {
@@ -294,7 +294,7 @@ sub print_section {
     do { $_ = shift(@line) } while !/\S/ && @line;
     
     print("#line ", $line_no[@line_no - @line -1], " \"$filename\"\n")
-	if $WantLineNumbers && !/^\s*#\s*line\b/;
+	if $WantLineNumbers && !/^\s*#\s*line\b/ && !/^#if XSubPPtmp/;
     for (;  defined($_) && !/^$BLOCK_re/o;  $_ = shift(@line)) {
 	print "$_\n";
     }