X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F55-yield-target.t;h=ced05c8bbcdca6c6d7fb5ed9b80b887420210d07;hb=eefb9e3f4b67e0aa0e8c3e705d7f7010a49f0540;hp=f927d20767d85689dd2bb31652861993f53497f7;hpb=5f285d96032cb5cf1e24f3573f3a3c1a35160e1b;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/55-yield-target.t b/t/55-yield-target.t
index f927d20..ced05c8 100644
--- a/t/55-yield-target.t
+++ b/t/55-yield-target.t
@@ -83,6 +83,12 @@ SKIP: {
                                                                 if "$]" < 5.010;
 
  @res = eval <<'TESTCASE';
+  BEGIN {
+   if ("$]" >= 5.017_011) {
+    require warnings;
+    warnings->unimport('experimental::smartmatch');
+   }
+  }
   use feature 'switch';
   (24, do {
    given (25) {
@@ -98,6 +104,12 @@ TESTCASE
  # end of the enclosing given block.
  @res = ();
  eval <<'TESTCASE';
+  BEGIN {
+   if ("$]" >= 5.017_011) {
+    require warnings;
+    warnings->unimport('experimental::smartmatch');
+   }
+  }
   use feature 'switch';
   @res = (28, do {
    given (29) {
@@ -115,6 +127,12 @@ TESTCASE
  # But calling yield() in when() in for() sends us at the next iteration.
  @res = ();
  eval <<'TESTCASE';
+  BEGIN {
+   if ("$]" >= 5.017_011) {
+    require warnings;
+    warnings->unimport('experimental::smartmatch');
+   }
+  }
   use feature 'switch';
   @res = (31, do {
    for (32, 33) {