podcheck.t: Call proper SUPER methood

khwilliamson · khwilliamson · commit ee535f662908 · 2024-11-28T07:24:49.000-07:00
end_head1() extends SUPER::end_head1().  So call that.  It turns out
that this didn't matter currently, but is bad practice.
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
@@ -1105,7 +1105,7 @@ package My::Pod::Checker {      # Extend Pod::Checker
         my $addr = refaddr $self;
 
         $in_NAME{$addr} = 1 if $running_simple_text{$addr} eq 'NAME';
-        return $self->SUPER::end_head(@_);
+        return $self->SUPER::end_head1(@_);
     }
 
     sub start_Verbatim {

Original file line number	Diff line number	Diff line change
`@@ -1105,7 +1105,7 @@ package My::Pod::Checker { # Extend Pod::Checker`
`1105`	`1105`	`my $addr = refaddr $self;`
`1106`	`1106`
`1107`	`1107`	`$in_NAME{$addr} = 1 if $running_simple_text{$addr} eq 'NAME';`
`1108`		`- return $self->SUPER::end_head(@_);`
	`1108`	`+ return $self->SUPER::end_head1(@_);`
`1109`	`1109`	`}`
`1110`	`1110`
`1111`	`1111`	`sub start_Verbatim {`