The "perlio: " prefix looks a little odd

in the few warning/error messages, since
no other 'subsystems' have prefixes.

p4raw-id: //depot/perl@21208

1 files changed, 6 insertions, 6 deletions

diff --git a/t/io/open.t b/t/io/open.t
index 90305bd1be..e71d2ec3c5 100755
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -286,19 +286,19 @@ SKIP: {
     local $SIG{__WARN__} = sub { $w = shift };
 
     eval { open(F, ">>>", "afile") };
-    like($w, qr/perlio: invalid separator character '>' in layer spec/,
+    like($w, qr/Invalid separator character '>' in PerlIO layer spec/,
 	 "bad open (>>>) warning");
     like($@, qr/Unknown open\(\) mode '>>>'/,
 	 "bad open (>>>) failure");
 
     eval { open(F, ">:u", "afile" ) };
-    like($w, qr/perlio: unknown layer "u"/,
+    like($w, qr/Unknown PerlIO layer "u"/,
 	 'bad layer ">:u" warning');
     eval { open(F, "<:u", "afile" ) };
-    like($w, qr/perlio: unknown layer "u"/,
+    like($w, qr/Unknown PerlIO layer "u"/,
 	 'bad layer "<:u" warning');
-    eval { open(F, ":u", "afile" ) };
-    like($@, qr/Unknown open\(\) mode ':u'/,
-	 'bad layer ":u" failure');
+    eval { open(F, ":c", "afile" ) };
+    like($@, qr/Unknown open\(\) mode ':c'/,
+	 'bad layer ":c" failure');
 }