diff options
Diffstat (limited to 't/lib/feature/bundle')
| -rw-r--r-- | t/lib/feature/bundle | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/t/lib/feature/bundle b/t/lib/feature/bundle index 05708e538e..7e1479f4e3 100644 --- a/t/lib/feature/bundle +++ b/t/lib/feature/bundle @@ -78,3 +78,22 @@ EXPECT custom sub custom sub custom sub +######## +# :default and $[ +# SKIP ? not defined DynaLoader::boot_DynaLoader +no feature; +use feature ":default"; +$[ = 1; +print qw[a b c][2], "\n"; +use feature ":5.16"; # should not disable anything; no feature does that +print qw[a b c][2], "\n"; +no feature; +print qw[a b c][2], "\n"; +use feature ":5.16"; +print qw[a b c][2], "\n"; +EXPECT +Use of assignment to $[ is deprecated at - line 4. +b +b +c +c |