diff options
author | James E Keenan <jkeenan@cpan.org> | 2021-02-22 21:45:36 -0500 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2021-02-28 09:07:10 -0500 |
commit | 744e1042eef34c1ff373f55564934240122fa72e (patch) | |
tree | 62e70b297ecbf71ab8dc082f9f6b7d6e29272922 /ext | |
parent | 404bfc71817384c1054af3cd82be3654591db1db (diff) | |
download | perl-744e1042eef34c1ff373f55564934240122fa72e.tar.gz |
List the switches without the hyphens
For simpler 'map'; per suggestion from rjbs in code review.
Diffstat (limited to 'ext')
-rw-r--r-- | ext/Pod-Html/t/pod2html-lib.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ext/Pod-Html/t/pod2html-lib.pl b/ext/Pod-Html/t/pod2html-lib.pl index 712811dff3..9c531cc2b4 100644 --- a/ext/Pod-Html/t/pod2html-lib.pl +++ b/ext/Pod-Html/t/pod2html-lib.pl @@ -52,11 +52,11 @@ sub convert_n_test { htmlroot => '/', podroot => $cwd, ); - my %no_arg_switches = map { substr($_,2) => 1 } ( qw| - --flush --recurse --norecurse - --quiet --noquiet --verbose --noverbose - --index --noindex --backlink --nobacklink - --header --noheader --poderrors --nopoderrors + my %no_arg_switches = map { $_ => 1 } ( qw| + flush recurse norecurse + quiet noquiet verbose noverbose + index noindex backlink nobacklink + header noheader poderrors nopoderrors | ); if (defined $p2h_args_ref) { for my $sw (keys %{$p2h_args_ref}) { |