diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-03-25 01:22:35 -0300 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-03-26 21:06:52 -0600 |
| commit | 0f539b13d39feb3bad9b2c86a57dea5035124802 (patch) | |
| tree | a6481e6c7d13e8681c8bb93e4d8a9ebe563f5598 /dist | |
| parent | 629deb5825bff527bfd3021146f63d64c72b50ce (diff) | |
| download | perl-0f539b13d39feb3bad9b2c86a57dea5035124802.tar.gz | |
Make smartmatch, given & when experimental
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/B-Deparse/t/deparse.t | 6 | ||||
| -rw-r--r-- | dist/Safe/t/safeops.t | 2 |
2 files changed, 5 insertions, 3 deletions
diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index f26aa969d4..af5c574f2c 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -594,7 +594,7 @@ my $c = []; my $d = \[]; #### # SKIP ?$] < 5.010 && "smartmatch and given/when not implemented on this Perl version" -# CONTEXT use feature ':5.10'; +# CONTEXT use feature ':5.10'; no warnings 'experimental::smartmatch'; # implicit smartmatch in given/when given ('foo') { when ('bar') { continue; } @@ -954,6 +954,7 @@ my @a; $a[0] = 1; #### # feature features without feature +# CONTEXT no warnings 'experimental::smartmatch'; CORE::state $x; CORE::say $x; CORE::given ($x) { @@ -969,6 +970,7 @@ CORE::evalbytes ''; () = CORE::fc $x; #### # feature features when feature has been disabled by use VERSION +# CONTEXT no warnings 'experimental::smartmatch'; use feature (sprintf(":%vd", $^V)); use 1; CORE::state $x; @@ -998,7 +1000,7 @@ CORE::evalbytes ''; () = CORE::__SUB__; #### # (the above test with CONTEXT, and the output is equivalent but different) -# CONTEXT use feature ':5.10'; +# CONTEXT use feature ':5.10'; no warnings 'experimental::smartmatch'; # feature features when feature has been disabled by use VERSION use feature (sprintf(":%vd", $^V)); use 1; diff --git a/dist/Safe/t/safeops.t b/dist/Safe/t/safeops.t index 85dc945101..cc25bcb6bb 100644 --- a/dist/Safe/t/safeops.t +++ b/dist/Safe/t/safeops.t @@ -453,7 +453,7 @@ dor $x // $y dorassign $x //= $y once SKIP {use feature 'state'; state $foo = 42;} say SKIP {use feature 'say'; say "foo";} -smartmatch $x ~~ $y +smartmatch no warnings 'experimental::smartmatch'; $x ~~ $y aeach SKIP each @t akeys SKIP keys @t avalues SKIP values @t |