16 lines
483 B
Perl
16 lines
483 B
Perl
#!./perl
|
|
|
|
our $pragma_name = "strict";
|
|
require "../t/lib/common.pl";
|
|
|
|
# eval qq(use strict 'garbage');
|
|
# like($@->{description}, qr/^Unknown 'strict' tag\(s\) 'garbage'/);
|
|
|
|
# eval qq(no strict 'garbage');
|
|
# like($@->{description}, qr/^Unknown 'strict' tag\(s\) 'garbage'/);
|
|
|
|
# eval qq(use strict qw(foo bar));
|
|
# like($@->{description}, qr/^Unknown 'strict' tag\(s\) 'foo bar'/);
|
|
|
|
# eval qq(no strict qw(foo bar));
|
|
# like($@->{description}, qr/^Unknown 'strict' tag\(s\) 'foo bar'/);
|