Remove the "Newline in left-justified string" warning.

[p5sagit/p5-mst-13.2.git] / t / lib / warnings / perlio

diff --git a/t/lib/warnings/perlio b/t/lib/warnings/perlio
index 63279ee..e84e3de 100644 (file)
--- 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".
+Unknown PerlIO layer "xyz" at - line 5.