Remove ~~ from autodoc.pl

Author: book

autodoc.pl

@@ -68,6 +68,7 @@
 
 use strict;
 use warnings;
+use List::Util 'all';
 
 my $nroff_min_indent = 4;   # for non-heading lines
 # 80 column terminal - 2 for pager adding 2 columns;
@@ -1369,11 +1370,12 @@ ($$$)
             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 = @baseargs == $item->{args}->@*
+                  && all { $baseargs[$_] eq $item->{args}{$_} } keys @baseargs;
                 $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};