1*0Sstevel@tonic-gate perlio.c 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gate 4*0Sstevel@tonic-gate Mandatory Warnings ALL TODO 5*0Sstevel@tonic-gate ------------------ 6*0Sstevel@tonic-gate Setting cnt to %d 7*0Sstevel@tonic-gate Setting ptr %p > end+1 %p 8*0Sstevel@tonic-gate Setting cnt to %d, ptr implies %d 9*0Sstevel@tonic-gate 10*0Sstevel@tonic-gate 11*0Sstevel@tonic-gateInvalid separator character %c%c%c in PerlIO layer specification %s 12*0Sstevel@tonic-gate 13*0Sstevel@tonic-gate open(F, ">:-aa", "bb") 14*0Sstevel@tonic-gate 15*0Sstevel@tonic-gate 16*0Sstevel@tonic-gateArgument list not closed for PerlIO layer \"%.*s\"" 17*0Sstevel@tonic-gate 18*0Sstevel@tonic-gate open(F, ">:aa(", "bb") 19*0Sstevel@tonic-gate 20*0Sstevel@tonic-gateUnknown PerlIO layer \"%.*s\" 21*0Sstevel@tonic-gate 22*0Sstevel@tonic-gate # PerlIO/xyz.pm has 1; 23*0Sstevel@tonic-gate open(F, ">xyz", "bb") 24*0Sstevel@tonic-gate 25*0Sstevel@tonic-gate__END__ 26*0Sstevel@tonic-gate 27*0Sstevel@tonic-gate# perlio [PerlIO_parse_layers] 28*0Sstevel@tonic-gateno warnings 'layer'; 29*0Sstevel@tonic-gateopen(F, ">:-aa", "bb"); 30*0Sstevel@tonic-gateuse warnings 'layer'; 31*0Sstevel@tonic-gateopen(F, ">:-aa", "bb"); 32*0Sstevel@tonic-gateclose F; 33*0Sstevel@tonic-gateEXPECT 34*0Sstevel@tonic-gateInvalid separator character '-' in PerlIO layer specification -aa at - line 6. 35*0Sstevel@tonic-gate######## 36*0Sstevel@tonic-gate 37*0Sstevel@tonic-gate# perlio [PerlIO_parse_layers] 38*0Sstevel@tonic-gateno warnings 'layer'; 39*0Sstevel@tonic-gateopen(F, ">:aa(", "bb"); 40*0Sstevel@tonic-gateuse warnings 'layer'; 41*0Sstevel@tonic-gateopen(F, ">:aa(", "bb"); 42*0Sstevel@tonic-gateclose F; 43*0Sstevel@tonic-gateEXPECT 44*0Sstevel@tonic-gateArgument list not closed for PerlIO layer "aa(" at - line 6. 45*0Sstevel@tonic-gate######## 46*0Sstevel@tonic-gate 47*0Sstevel@tonic-gate--FILE-- PerlIO/xyz.pm 48*0Sstevel@tonic-gate1; 49*0Sstevel@tonic-gate--FILE-- 50*0Sstevel@tonic-gate# perlio [PerlIO_parse_layers] 51*0Sstevel@tonic-gateno warnings 'layer'; 52*0Sstevel@tonic-gateopen(F, ">:xyz", "bb"); 53*0Sstevel@tonic-gateuse warnings 'layer'; 54*0Sstevel@tonic-gateopen(F, ">:xyz", "bb"); 55*0Sstevel@tonic-gateclose F; 56*0Sstevel@tonic-gateEND { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST. 57*0Sstevel@tonic-gateEXPECT 58*0Sstevel@tonic-gateUnknown PerlIO layer "xyz" at - line 5. 59