File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 154
154
# unlooked at
155
155
my %protos ;
156
156
157
- my $link_text = " Described in" ;
157
+ my $described_in = " Described in" ;
158
158
159
159
my $description_indent = 4;
160
160
my $usage_indent = 3; # + initial verbatim block blank yields 4 total
@@ -1052,7 +1052,7 @@ ($$)
1052
1052
# deserving candidates.)
1053
1053
my $podname = $file =~ s ! .*/!! r ; # Rmv directory name(s)
1054
1054
$podname =~ s /\. pod// ;
1055
- $text = " Described in L<$podname >.\n " ;
1055
+ $text = " $described_in L<$podname >.\n " ;
1056
1056
1057
1057
# Keep track of all the pod files that we refer to.
1058
1058
push $described_elsewhere {$podname }-> @*, $podname ;
@@ -1350,7 +1350,7 @@ sub parse_config_h {
1350
1350
my $was = $docs {' api' }{$section }{$name }-> {pod };
1351
1351
$was = " " unless $was ;
1352
1352
chomp $was ;
1353
- if ($was ne " " && $was !~ m /$link_text / ) {
1353
+ if ($was ne " " && $was !~ m /$described_in / ) {
1354
1354
die " Multiple descriptions for $name \n "
1355
1355
. " The '$section ' section contained\n '$was '" ;
1356
1356
}
You can’t perform that action at this time.
0 commit comments