diff options
| author | Philippe Bruhat (BooK) <book@cpan.org> | 2022-09-07 09:34:10 +0200 |
|---|---|---|
| committer | Philippe Bruhat (BooK) <book@cpan.org> | 2022-09-23 17:42:32 +0200 |
| commit | 56c95a7ae1063b949a9b8cb3002a4383543c0fb9 (patch) | |
| tree | ef32b6bce13a0517d954331714602c09de827f9f /autodoc.pl | |
| parent | 22d01053ed299e489bfee2839fb35dfeece9d1fb (diff) | |
| download | perl-56c95a7ae1063b949a9b8cb3002a4383543c0fb9.tar.gz | |
Remove ~~ from autodoc.pl
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/autodoc.pl b/autodoc.pl index d586826f36..18e9030725 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -1369,11 +1369,12 @@ sub docout ($$$) { # output the docs for one function group my @base_args = $items[0]->{args}->@*; my $base_thread_context = $items[0]->{flags} =~ /T/; for (my $i = 1; $i < @items; $i++) { - no warnings 'experimental::smartmatch'; my $item = $items[$i]; + my $args_are_equal = $item->{args}->@* == @base_args + && !grep $item->{args}[$_] ne $base_args[$_], keys @base_args; $need_individual_usage = 1 if $item->{ret_type} ne $base_ret_type - || ! ($item->{args}->@* ~~ @base_args) + || ! $args_are_equal || ( $item->{flags} =~ /T/ != $base_thread_context); my $ret_length = length $item->{ret_type}; |