Skip to content

Commit 23c78ba

Browse files
authored
Fix mysterious Perl warnings (#886)
Today, building the docs emits the following warnings: Scalar value @edit_urls{ $doc_toplevel } better written as $edit_urls{ $doc_toplevel } at /Users/davidturner/src/docs/build_docs.pl line 144. Scalar value @edit_urls{ $resource_toplevel } better written as $edit_urls{ $resource_toplevel } at /Users/davidturner/src/docs/build_docs.pl line 150. This commit implements these suggestions to suppress these warnings.
1 parent efcb008 commit 23c78ba

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

build_docs.pl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -140,13 +140,13 @@ sub _guess_opts_from_file {
140140
}
141141
$Opts->{root_dir} = $doc_toplevel;
142142
my $edit_url = _guess_edit_url($doc_toplevel);
143-
@edit_urls{ $doc_toplevel } = $edit_url if $edit_url;
143+
$edit_urls{ $doc_toplevel } = $edit_url if $edit_url;
144144
for my $resource ( @{ $Opts->{resource} } ) {
145145
my $resource_toplevel = _find_toplevel($resource);
146146
next unless $resource_toplevel;
147147

148148
my $resource_edit_url = _guess_edit_url($resource_toplevel);
149-
@edit_urls{ $resource_toplevel } = $resource_edit_url if $resource_edit_url;
149+
$edit_urls{ $resource_toplevel } = $resource_edit_url if $resource_edit_url;
150150
}
151151
$Opts->{edit_urls} = { %edit_urls };
152152
}

0 commit comments

Comments
 (0)