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