More descriptive error for unknown perlio layers.

Subject: [PATCHES Bleadperl] Re: PerlIO - what all of you can all do.   
Message-Id: <p04320401b632c4c3335b@[192.168.1.4]>

p4raw-id: //depot/perl@7650

1 files changed, 1 insertions, 1 deletions

diff --git a/perlio.c b/perlio.c
index 73e463a612..e350fefe06 100644
--- a/perlio.c
+++ b/perlio.c
@@ -385,7 +385,7 @@ PerlIO_default_layer(I32 n)
            av_push(PerlIO_layer_av,SvREFCNT_inc(layer));
           }
          else
-          Perl_warn(aTHX_ "Unknown layer %.*s",(e-s),s);
+          Perl_warn(aTHX_ "perlio: unknown layer \"%.*s\"",(e-s),s);
          s = e;
         }
       }