Enable the ~~ operator by default.

Remove the ~~ feature.

p4raw-id: //depot/perl@29838

2 files changed, 1 insertions, 49 deletions

diff --git a/t/lib/feature/smartmatch b/t/lib/feature/smartmatch
deleted file mode 100644
index 16ea7f8a92..0000000000
--- a/t/lib/feature/smartmatch
+++ /dev/null
@@ -1,45 +0,0 @@
-Check the lexical scoping of the switch keywords.
-(The actual behaviour is tested in t/op/smartmatch.t)
-
-__END__
-# No ~~; should be a syntax error.
-use warnings;
-print +(2 ~~ 2);
-EXPECT
-syntax error at - line 3, near "2 ~"
-Execution of - aborted due to compilation errors.
-########
-# With ~~, should work
-use warnings;
-use feature "~~";
-print +(2 ~~ 2);
-EXPECT
-1
-########
-# ~~ out of scope; should be a syntax error.
-use warnings;
-{ use feature '~~'; }
-print +(2 ~~ 2);
-EXPECT
-syntax error at - line 4, near "2 ~"
-Execution of - aborted due to compilation errors.
-########
-# 'no feature' should work
-use warnings;
-use feature '~~';
-print +(2 ~~ 2), "\n";
-no feature;
-print +(2 ~~ 2), "\n";
-EXPECT
-syntax error at - line 6, near "2 ~"
-Execution of - aborted due to compilation errors.
-########
-# 'no feature "~~"' should work too
-use warnings;
-use feature '~~';
-print +(2 ~~ 2), "\n";
-no feature "~~";
-print +(2 ~~ 2), "\n";
-EXPECT
-syntax error at - line 6, near "2 ~"
-Execution of - aborted due to compilation errors.
diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index 6275f40b0f..3c6d1c3c95 100644
--- 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");