diff options
| author | John Tobey <jtobey@user1.channel1.com> | 1997-09-05 00:00:00 +0000 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-09-05 00:00:00 +0000 |
| commit | d3308daf9dca01364c4abacd44066e73a758e9a5 (patch) | |
| tree | aa2435a22b46dbc69a08beb51bd4ff2e36ec37e3 /lib | |
| parent | 0530a6c41577c95e7ef7bf1e372d4ed138dc02f3 (diff) | |
| download | perl-d3308daf9dca01364c4abacd44066e73a758e9a5.tar.gz | |
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
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index ac1378dce2..04de166ad6 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"; } |