From 56c95a7ae1063b949a9b8cb3002a4383543c0fb9 Mon Sep 17 00:00:00 2001
From: "Philippe Bruhat (BooK)" <book@cpan.org>
Date: Wed, 7 Sep 2022 09:34:10 +0200
Subject: Remove ~~ from autodoc.pl

---
 autodoc.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'autodoc.pl')

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};
-- 
cgit v1.2.1