diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-13 15:22:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-13 15:22:38 +0000 |
| commit | c4d88abd0953e77568d8da9de5cc9fc9a0f13fc6 (patch) | |
| tree | 1a07e4ae1b08db31a8dccb4d35f7d89ddc50a2d9 /t/lib/warnings | |
| parent | b4581f097130417ce397d3283decd4cd6b448ce9 (diff) | |
| download | perl-c4d88abd0953e77568d8da9de5cc9fc9a0f13fc6.tar.gz | |
More PerlIO warnings changes.
p4raw-id: //depot/perl@21209
Diffstat (limited to 't/lib/warnings')
| -rw-r--r-- | t/lib/warnings/perlio | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/lib/warnings/perlio b/t/lib/warnings/perlio index cb39e90bc0..e84e3de606 100644 --- a/t/lib/warnings/perlio +++ b/t/lib/warnings/perlio @@ -8,16 +8,16 @@ Setting cnt to %d, ptr implies %d -perlio: invalid separator character %c%c%c in layer specification list %s +Invalid separator character %c%c%c in PerlIO layer specification %s open(F, ">:-aa", "bb") -perlio: argument list not closed for layer \"%.*s\"" +Argument list not closed for PerlIO layer \"%.*s\"" open(F, ">:aa(", "bb") -perlio: unknown layer \"%.*s\" +Unknown PerlIO layer \"%.*s\" # PerlIO/xyz.pm has 1; open(F, ">xyz", "bb") @@ -31,7 +31,7 @@ use warnings 'layer'; open(F, ">:-aa", "bb"); close F; EXPECT -perlio: invalid separator character '-' in layer specification list -aa at - line 6. +Invalid separator character '-' in PerlIO layer specification -aa at - line 6. ######## # perlio [PerlIO_parse_layers] @@ -41,7 +41,7 @@ use warnings 'layer'; open(F, ">:aa(", "bb"); close F; EXPECT -perlio: argument list not closed for layer "aa(" at - line 6. +Argument list not closed for PerlIO layer "aa(" at - line 6. ######## --FILE-- PerlIO/xyz.pm @@ -55,4 +55,4 @@ open(F, ">:xyz", "bb"); close F; END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST. EXPECT -perlio: unknown layer "xyz" at - line 5. +Unknown PerlIO layer "xyz" at - line 5. |