Skip to content

Commit a7fc95f

Browse files
committed
podcheck.t: Do actions for all =head levels
Prior to this commit, the resetting of certain variables was done just for =head1. But there is nothing special about this level for these variables, so do it for all.
1 parent ee535f6 commit a7fc95f

File tree

1 file changed

+9
-2
lines changed

1 file changed

+9
-2
lines changed

t/porting/podcheck.t

Lines changed: 9 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1086,14 +1086,21 @@ package My::Pod::Checker { # Extend Pod::Checker
10861086
$self->SUPER::end_Para(@_);
10871087
}
10881088
1089+
sub start_head {
1090+
my $self = shift;
1091+
my $addr = refaddr $self;
1092+
$running_CFL_text{$addr} = "";
1093+
$running_simple_text{$addr} = "";
1094+
1095+
return $self->SUPER::start_head(@_);
1096+
}
1097+
10891098
sub start_head1 {
10901099
my $self = shift;
10911100
check_see_but_not_link($self);
10921101
10931102
my $addr = refaddr $self;
10941103
$start_line{$addr} = $_[0]->{start_line};
1095-
$running_CFL_text{$addr} = "";
1096-
$running_simple_text{$addr} = "";
10971104
10981105
return $self->SUPER::start_head1(@_);
10991106
}

0 commit comments

Comments
 (0)