From c0ac28175b4f88934f5b20131fbcd727c858af8d Mon Sep 17 00:00:00 2001 From: James E Keenan Date: Tue, 10 Aug 2021 21:59:07 +0000 Subject: 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) --- ext/Pod-Html/lib/Pod/Html.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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}; -- cgit v1.2.1