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 /t/op/tie_fetch_count.t | |
| parent | 629deb5825bff527bfd3021146f63d64c72b50ce (diff) | |
| download | perl-0f539b13d39feb3bad9b2c86a57dea5035124802.tar.gz | |
Make smartmatch, given & when experimental
Diffstat (limited to 't/op/tie_fetch_count.t')
| -rw-r--r-- | t/op/tie_fetch_count.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index 6b2eb792e3..c3ed030cfd 100644 --- a/t/op/tie_fetch_count.t +++ b/t/op/tie_fetch_count.t @@ -151,7 +151,10 @@ $dummy = -e -e -e $var ; check_count '-e -e'; $_ = "foo"; $dummy = $var =~ m/ / ; check_count 'm//'; $dummy = $var =~ s/ //; check_count 's///'; -$dummy = $var ~~ 1 ; check_count '~~'; +{ + no warnings 'experimental::smartmatch'; + $dummy = $var ~~ 1 ; check_count '~~'; +} $dummy = $var =~ y/ //; check_count 'y///'; $var = \1; $dummy = $var =~y/ /-/; check_count '$ref =~ y///'; |