1#!./perl 2 3chdir 't' if -d 't'; 4@INC = ( '.', '../lib' ); 5 6our $local_tests = 5; 7require "../t/lib/common.pl"; 8 9eval qq(use strict 'garbage'); 10like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/); 11 12eval qq(no strict 'garbage'); 13like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/); 14 15eval qq(use strict qw(foo bar)); 16like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/); 17 18eval qq(no strict qw(foo bar)); 19like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/); 20 21eval 'use strict; use v5.10; ${"c"}'; 22like($@, 23 qr/^Can't use string \("c"\) as a SCALAR ref while "strict refs" in use/, 24 "use v5.10 doesn't disable explicit strict ref"); 25