Silence experimental warnings on perl 5.17.11+ for given/when in tests

[perl/modules/Scope-Upper.git] / t / lib / Scope / Upper / TestGenerator.pm

diff --git a/t/lib/Scope/Upper/TestGenerator.pm b/t/lib/Scope/Upper/TestGenerator.pm
index c71b8f36f2f7c925f79b0679a2b56fe8501e28f6..b4f6e1b6762d26e8aa179c468adbf54da8e70b6f 100644 (file)
--- a/t/lib/Scope/Upper/TestGenerator.pm
+++ b/t/lib/Scope/Upper/TestGenerator.pm
@@ -39,6 +39,11 @@ my %exports = (
 );
 
 sub import {
+ if ("$]" >= 5.017_011) {
+  require warnings;
+  warnings->unimport('experimental::smartmatch');
+ }
+
  if ("$]" >= 5.010_001) {
   require feature;
   feature->import('switch');