Commit | Line | Data |
0453d815 |
1 | perlio.c |
2 | |
3 | |
4 | Mandatory Warnings ALL TODO |
5 | ------------------ |
6 | Setting cnt to %d |
7 | Setting ptr %p > end+1 %p |
8 | Setting cnt to %d, ptr implies %d |
9 | |
99ef548b |
10 | |
c4d88abd |
11 | Invalid separator character %c%c%c in PerlIO layer specification %s |
99ef548b |
12 | |
13 | open(F, ">:-aa", "bb") |
14 | |
15 | |
c4d88abd |
16 | Argument list not closed for PerlIO layer \"%.*s\"" |
99ef548b |
17 | |
18 | open(F, ">:aa(", "bb") |
19 | |
c4d88abd |
20 | Unknown PerlIO layer \"%.*s\" |
99ef548b |
21 | |
22 | # PerlIO/xyz.pm has 1; |
23 | open(F, ">xyz", "bb") |
24 | |
0453d815 |
25 | __END__ |
99ef548b |
26 | |
27 | # perlio [PerlIO_parse_layers] |
28 | no warnings 'layer'; |
29 | open(F, ">:-aa", "bb"); |
30 | use warnings 'layer'; |
31 | open(F, ">:-aa", "bb"); |
0ec158f4 |
32 | close F; |
99ef548b |
33 | EXPECT |
c4d88abd |
34 | Invalid separator character '-' in PerlIO layer specification -aa at - line 6. |
99ef548b |
35 | ######## |
36 | |
37 | # perlio [PerlIO_parse_layers] |
38 | no warnings 'layer'; |
39 | open(F, ">:aa(", "bb"); |
40 | use warnings 'layer'; |
41 | open(F, ">:aa(", "bb"); |
0ec158f4 |
42 | close F; |
99ef548b |
43 | EXPECT |
c4d88abd |
44 | Argument list not closed for PerlIO layer "aa(" at - line 6. |
99ef548b |
45 | ######## |
46 | |
47 | --FILE-- PerlIO/xyz.pm |
48 | 1; |
49 | --FILE-- |
50 | # perlio [PerlIO_parse_layers] |
51 | no warnings 'layer'; |
52 | open(F, ">:xyz", "bb"); |
2dc52cef |
53 | use warnings 'layer'; |
99ef548b |
54 | open(F, ">:xyz", "bb"); |
0ec158f4 |
55 | close F; |
67efce40 |
56 | END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST. |
99ef548b |
57 | EXPECT |
c4d88abd |
58 | Unknown PerlIO layer "xyz" at - line 5. |