Storing the length of all the overloading names saves a strlen() in a

[p5sagit/p5-mst-13.2.git] / t / op / smartmatch.t

diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index 6275f40..3c6d1c3 100644 (file)
--- a/t/op/smartmatch.t
+++ b/t/op/smartmatch.t
@@ -48,10 +48,7 @@ sub match_test {
     my $tstr = "$left ~~ $right";
     
     my $res;
-    {
-       use feature "~~";
-       $res = eval $tstr // "";        #/ <- fix syntax colouring
-    }
+    $res = eval $tstr // "";   #/ <- fix syntax colouring
 
     die $@ if $@ ne "";
     ok( ($yn =~ /!/ xor $res), "$tstr: $res");