From e4f66188b1d5995806d789f8e78aedde89b9c0bb Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sat, 28 Sep 2024 16:13:14 +0200
Subject: [PATCH] switch has gone in perl 5.41.x (RT #154926)

---
 sense.pm.PL | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/sense.pm.PL b/sense.pm.PL
index 07f5250..df7d675 100755
--- a/sense.pm.PL
+++ b/sense.pm.PL
@@ -13,7 +13,7 @@ use strict qw(subs vars);
 BEGIN {
    if ($] >= 5.010) {
       require feature;
-      feature->import (qw(say state switch));
+      feature->import (qw(say state));
    }
    if ($] >= 5.012) {
       feature->import (qw(unicode_strings));
@@ -22,7 +22,9 @@ BEGIN {
       feature->import (qw(current_sub fc evalbytes));
       feature->unimport (qw(array_base));
    }
-
+   if ($] >= 5.010 and $] <= 5.040) {
+      feature->import (qw(switch));
+   }
 }
 
 no warnings;
-- 
2.11.0