From bdb7fdbd1d518ce06e3a34d80a9789a3862407e9 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sat, 12 Oct 2024 19:42:46 +0200
Subject: [PATCH] replace smartmatch by match::smart (RT #155843)

---
 lib/Perinci/Access/HTTP/Client.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Perinci/Access/HTTP/Client.pm b/lib/Perinci/Access/HTTP/Client.pm
index b73ef7e..b0b5ba8 100644
--- a/lib/Perinci/Access/HTTP/Client.pm
+++ b/lib/Perinci/Access/HTTP/Client.pm
@@ -6,7 +6,7 @@ our $VERSION = '0.24'; # VERSION
 use 5.010001;
 use strict;
 use warnings;
-use experimental 'smartmatch';
+use match::smart;
 use Log::ger;
 
 use Perinci::AccessUtil qw(strip_riap_stuffs_from_res);
@@ -90,7 +90,7 @@ sub request {
                     } else {
                         $chdata =~ s/^\[(\w+)\]//;
                         my $level = $1;
-                        $level = "error" unless $level ~~ @logging_levels;
+                        $level = "error" unless $level |M| \@logging_levels;
                         my $logger_name = "log_$level";
                         no strict 'refs';
                         &{$logger_name}("[$server_url] $chdata");
-- 
2.11.0