From dd7261f28f71aa0863b48920341eac21dadb0403 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Mon, 22 Jul 2024 11:06:00 +1000
Subject: [PATCH] switch removal: Safe t/safeops.t

This test only runs in core, so removing smartmatch can match core.
---
 dist/Safe/Safe.pm     | 2 +-
 dist/Safe/t/safeops.t | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
index 1e1587c8bb91b..791fa5750bac3 100644
--- a/dist/Safe/Safe.pm
+++ b/dist/Safe/Safe.pm
@@ -3,7 +3,7 @@ package Safe;
 use 5.003_11;
 use Scalar::Util qw(reftype refaddr);
 
-$Safe::VERSION = "2.46";
+$Safe::VERSION = "2.47";
 
 # *** Don't declare any lexicals above this point ***
 #
diff --git a/dist/Safe/t/safeops.t b/dist/Safe/t/safeops.t
index 57c46b62c3ee3..74fb58f413c76 100644
--- a/dist/Safe/t/safeops.t
+++ b/dist/Safe/t/safeops.t
@@ -45,7 +45,7 @@ plan(tests => scalar @op + 3);
 sub testop {
     my ($op, $opname, $code) = @_;
     pass("$op : skipped") and return if $code =~ /^SKIP/;
-    pass("$op : skipped") and return if $code =~ m://|~~: && $] < 5.010;
+    pass("$op : skipped") and return if $code eq "//" && $] < 5.010;
     my $c = new Safe;
     $c->deny_only($op);
     $c->reval($code);
@@ -453,7 +453,6 @@ dor		$x // $y
 dorassign	$x //= $y
 once		SKIP {use feature 'state'; state $foo = 42;}
 say		SKIP {use feature 'say'; say "foo";}
-smartmatch	no warnings 'deprecated'; $x ~~ $y
 aeach		SKIP each @t
 akeys		SKIP keys @t
 avalues		SKIP values @t