diff options
author | James E Keenan <jkeenan@cpan.org> | 2021-08-10 21:59:07 +0000 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2021-08-14 15:07:51 +0000 |
commit | c0ac28175b4f88934f5b20131fbcd727c858af8d (patch) | |
tree | c15a297792c1562661d2893c6ef99caafba5895f | |
parent | bc4a9d813672ab84362aa3371710f75c49a6f905 (diff) | |
download | perl-c0ac28175b4f88934f5b20131fbcd727c858af8d.tar.gz |
Pod::Html: assign directly to array ref
... rather than to the array which is referenced. (Corrected response
to rjbs comment in
https://github.com/Perl/perl5/pull/18977#discussion_r671734180)
-rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm index a3232bc323..708f64625f 100644 --- a/ext/Pod-Html/lib/Pod/Html.pm +++ b/ext/Pod-Html/lib/Pod/Html.pm @@ -324,7 +324,9 @@ sub init_globals { sub process_options { my ($globals, $opts) = @_; - @{$globals->{Podpath}} = split(":", $opts->{podpath}) if defined $opts->{podpath}; + $globals->{Podpath} = (defined $opts->{podpath}) + ? [ split(":", $opts->{podpath}) ] + : []; $globals->{Backlink} = $opts->{backlink} if defined $opts->{backlink}; $globals->{Cachedir} = unixify($opts->{cachedir}) if defined $opts->{cachedir}; |