@@ -689,42 +689,42 @@ sub fetch_para {
689689
690690 my $final ;
691691
692- # Blank line followed by char in column 1. Start of next XSUB?
693- last if $self -> {lastline } =~ / ^\S /
694- && @{ $self -> {line } }
695- && $self -> {line }-> [-1] eq " " ;
696-
697- # analyse CPP conditionals
698- if ($self -> {lastline }
699- =~/ ^#[ \t ]*(if|ifn?def|elif|else|endif|elifn?def)\b / )
700- {
701- my $type = $1 ;
702- if ($type =~ / ^if/ ) { # if, ifdef, ifndef
703- if (@{$self -> {line }}) {
704- # increment level
705- $if_level ++;
706- } else {
707- $final = 1;
708- }
709- } elsif ($type eq " endif" ) {
710- if ($if_level ) { # are we in an if that was started in this paragraph?
711- $if_level --; # yep- so decrement to end this if block
712- } else {
713- $final = 1;
714- }
715- } elsif (!$if_level ) {
716- # not in an #ifdef from this paragraph, thus
717- # this directive should not be part of this paragraph.
692+ # Blank line followed by char in column 1. Start of next XSUB?
693+ last if $self -> {lastline } =~ / ^\S /
694+ && @{ $self -> {line } }
695+ && $self -> {line }-> [-1] eq " " ;
696+
697+ # analyse CPP conditionals
698+ if ($self -> {lastline }
699+ =~/ ^#[ \t ]*(if|ifn?def|elif|else|endif|elifn?def)\b / )
700+ {
701+ my $type = $1 ;
702+ if ($type =~ / ^if/ ) { # if, ifdef, ifndef
703+ if (@{$self -> {line }}) {
704+ # increment level
705+ $if_level ++;
706+ } else {
718707 $final = 1;
719708 }
709+ } elsif ($type eq " endif" ) {
710+ if ($if_level ) { # are we in an if that was started in this paragraph?
711+ $if_level --; # yep- so decrement to end this if block
712+ } else {
713+ $final = 1;
714+ }
715+ } elsif (!$if_level ) {
716+ # not in an #ifdef from this paragraph, thus
717+ # this directive should not be part of this paragraph.
718+ $final = 1;
720719 }
720+ }
721721
722- if ($final and @{$self -> {line }}) {
723- return 1;
724- }
722+ if ($final and @{$self -> {line }}) {
723+ return 1;
724+ }
725725
726- push (@{ $self -> {line } }, $self -> {lastline });
727- push (@{ $self -> {line_no } }, $self -> {lastline_no });
726+ push (@{ $self -> {line } }, $self -> {lastline });
727+ push (@{ $self -> {line_no } }, $self -> {lastline_no });
728728
729729
730730 read_next_line:
0 commit comments