diff options
| author | James Raspass <jraspass@gmail.com> | 2014-12-02 13:41:19 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-02 14:11:26 -0800 |
| commit | ed958fa3156084f3cf4d8c4768716d9e1a11ce91 (patch) | |
| tree | 48566185a5d4d34a9f09ffa22960fb9c5db21f1c /lib/strict.t | |
| parent | 3d6de2cd13dfe0ce6162563bc69ff8f6329e8664 (diff) | |
| download | perl-ed958fa3156084f3cf4d8c4768716d9e1a11ce91.tar.gz | |
Optimise strict.pm for the common case
Diffstat (limited to 'lib/strict.t')
| -rw-r--r-- | lib/strict.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/strict.t b/lib/strict.t index e067793b82..d6c6ed0e41 100644 --- a/lib/strict.t +++ b/lib/strict.t @@ -3,7 +3,7 @@ chdir 't' if -d 't'; @INC = '../lib'; -our $local_tests = 4; +our $local_tests = 6; require "../t/lib/common.pl"; eval qq(use strict 'garbage'); @@ -17,3 +17,11 @@ like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/); eval qq(no strict qw(foo bar)); like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/); + +eval 'use v5.12; use v5.10; ${"c"}'; +is($@, '', 'use v5.10 disables implicit strict refs'); + +eval 'use strict; use v5.10; ${"c"}'; +like($@, + qr/^Can't use string \("c"\) as a SCALAR ref while "strict refs" in use/, + "use v5.10 doesn't disable explicit strict ref"); |