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 /ext | |
| parent | 629deb5825bff527bfd3021146f63d64c72b50ce (diff) | |
| download | perl-0f539b13d39feb3bad9b2c86a57dea5035124802.tar.gz | |
Make smartmatch, given & when experimental
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/fetch_pad_names.t | 1 | ||||
| -rw-r--r-- | ext/XS-APItest/t/grok.t | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/ext/XS-APItest/t/fetch_pad_names.t b/ext/XS-APItest/t/fetch_pad_names.t index 559bc3f79b..3d42280952 100644 --- a/ext/XS-APItest/t/fetch_pad_names.t +++ b/ext/XS-APItest/t/fetch_pad_names.t @@ -311,6 +311,7 @@ sub general_tests { is grep( !Encode::is_utf8($_), @$names_av), $tests->{pad_size}{invariant}{cmp}; for my $var (@{$tests->{vars}}) { + no warnings 'experimental::smartmatch'; if ($var->{type} eq 'ok') { ok $var->{name} ~~ $names_av, $var->{msg}; } else { diff --git a/ext/XS-APItest/t/grok.t b/ext/XS-APItest/t/grok.t index 2d2d192c7d..99fbc5d3da 100644 --- a/ext/XS-APItest/t/grok.t +++ b/ext/XS-APItest/t/grok.t @@ -5,6 +5,7 @@ use Test::More; use Config; use XS::APItest; use feature 'switch'; +no warnings 'experimental::smartmatch'; use constant TRUTH => '0 but true'; # Tests for grok_number. Not yet comprehensive. |