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