diff options
Diffstat (limited to 't/op/taint.t')
| -rw-r--r-- | t/op/taint.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index b4b590ef5d..daeb164efa 100644 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -2453,6 +2453,7 @@ EOF my $desc = "tainted value returned from " . shift(@descriptions); my $res = do { + no warnings 'deprecated'; given ($_) { when ('x') { $letter } when ('y') { goto leavegiven } @@ -2482,7 +2483,7 @@ EOF # Tainted values with smartmatch # [perl #93590] S_do_smartmatch stealing its own string buffers { -no warnings 'experimental::smartmatch'; +no warnings 'deprecated'; ok "M$TAINT" ~~ ['m', 'M'], '$tainted ~~ ["whatever", "match"]'; ok !("M$TAINT" ~~ ['m', undef]), '$tainted ~~ ["whatever", undef]'; } |