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 10 11Invalid separator character %c%c%c in PerlIO layer specification %s 12 13 open(F, ">:-aa", "bb") 14 15 16Argument list not closed for PerlIO layer \"%.*s\"" 17 18 open(F, ">:aa(", "bb") 19 20Unknown PerlIO layer \"%.*s\" 21 22 # PerlIO/xyz.pm has 1; 23 open(F, ">xyz", "bb") 24 25__END__ 26 27# perlio [PerlIO_parse_layers] 28no warnings 'layer'; 29open(F, ">:-aa", "bb"); 30use warnings 'layer'; 31open(F, ">:-aa", "bb"); 32close F; 33EXPECT 34Invalid separator character '-' in PerlIO layer specification -aa at - line 6. 35######## 36 37# perlio [PerlIO_parse_layers] 38no warnings 'layer'; 39open(F, ">:aa(", "bb"); 40use warnings 'layer'; 41open(F, ">:aa(", "bb"); 42close F; 43EXPECT 44Argument list not closed for PerlIO layer "aa(" at - line 6. 45######## 46 47--FILE-- PerlIO_test_dir/xyz.pm 481; 49--FILE-- 50# perlio [PerlIO_parse_layers] 51no warnings 'layer'; 52open(F, ">:xyz", "bb"); 53use warnings 'layer'; 54open(F, ">:xyz", "bb"); 55close F; 56END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST. 57EXPECT 58Unknown PerlIO layer "xyz" at - line 5. 59