#!./perl | |
chdir 't' if -d 't'; | |
@INC = '../lib'; | |
our $local_tests = 4; | |
require "../t/lib/common.pl"; | |
eval qq(use strict 'garbage'); | |
like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/); | |
eval qq(no strict 'garbage'); | |
like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/); | |
eval qq(use strict qw(foo bar)); | |
like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/); | |
eval qq(no strict qw(foo bar)); | |
like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/); |