diff options
author | James E Keenan <jkeenan@cpan.org> | 2021-08-14 15:41:42 +0000 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2021-08-23 01:47:47 +0000 |
commit | a358e746a4e1efa73acc4356b9aeb8112f775169 (patch) | |
tree | 22194fe3e561b495dd2e2f8f03623f65193d32e6 /ext/Pod-Html | |
parent | b2a21b5cd49a33cd078c64d0918a98320fb79a77 (diff) | |
download | perl-a358e746a4e1efa73acc4356b9aeb8112f775169.tar.gz |
Pod::Html: assign directly to array ref
This restores the thrust of c0ac28175b, which got zapped when resolving
merge conflicts.
Diffstat (limited to 'ext/Pod-Html')
-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 9b44a09173..be9ec5f039 100644 --- a/ext/Pod-Html/lib/Pod/Html.pm +++ b/ext/Pod-Html/lib/Pod/Html.pm @@ -325,7 +325,9 @@ sub init_globals { sub process_options { my ($self, $opts) = @_; - @{$self->{Podpath}} = split(":", $opts->{podpath}) if defined $opts->{podpath}; + $self->{Podpath} = (defined $opts->{podpath}) + ? [ split(":", $opts->{podpath}) ] + : []; $self->{Backlink} = $opts->{backlink} if defined $opts->{backlink}; $self->{Cachedir} = unixify($opts->{cachedir}) if defined $opts->{cachedir}; |