1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Test that non-existent features fail as expected.
__END__
use feature "nonesuch";
EXPECT
OPTIONS regex
^Feature "nonesuch" is not supported by Perl [v0-9.]+ at - line 1
########
no feature "nonesuch";
EXPECT
OPTIONS regex
^Feature "nonesuch" is not supported by Perl [v0-9.]+ at - line 1
########
use feature ":nonesuch";
EXPECT
OPTIONS regex
^Feature bundle "nonesuch" is not supported by Perl [v0-9.]+ at - line 1
########
no feature ":nonesuch";
EXPECT
OPTIONS regex
^Feature bundle "nonesuch" is not supported by Perl [v0-9.]+ at - line 1
|
