Skip to content

Commit 35b69a9

Browse files
committed
ParseXS: refactor: fetch_para(): reindent
Reindent a block of code after the previous commit removed a scope. Whitespace-only.
1 parent caa8c16 commit 35b69a9

File tree

1 file changed

+31
-31
lines changed

1 file changed

+31
-31
lines changed

dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm

Lines changed: 31 additions & 31 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)