Enhance the open pragma to support :utf8, :locale,

and :encoding directly as special cases, and rename
the INOUT to IO.

p4raw-id: //depot/perl@12933

1 files changed, 2 insertions, 2 deletions

diff --git a/perlio.c b/perlio.c
index f74e5694fa..797238c1ea 100644
--- a/perlio.c
+++ b/perlio.c
@@ -779,8 +779,8 @@ PerlIO_parse_layers(pTHX_ PerlIO_list_t *av, const char *names)
 		     */
 		    char q = ((*s == '\'') ? '"' : '\'');
 		    Perl_warn(aTHX_
-			      "perlio: invalid separator character %c%c%c in layer specification list",
-			      q, *s, q);
+			      "perlio: invalid separator character %c%c%c in layer specification list %s",
+			      q, *s, q, s);
 		    return -1;
 		}
 		do {