Unicode::UCD.pm Add undocumented internal feature

[perl5.git] / lib / strict.t

diff --git a/lib/strict.t b/lib/strict.t
index 51e9b73..bfee762 100644 (file)
--- a/lib/strict.t
+++ b/lib/strict.t
@@ -1,13 +1,9 @@
 #!./perl
 
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-    $ENV{PERL5LIB} = '../lib';
-}
-
-our $pragma_name = "strict";
-our $local_tests = 4;
+chdir 't' if -d 't';
+@INC = ( '.', '../lib' );
+
+our $local_tests = 6;
 require "../t/lib/common.pl";
 
 eval qq(use strict 'garbage');
@@ -21,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");