[ID 20010203.006] perlio.c is mis-reporting argument

	length byfailing to spot lack of closing )
       Message-Id: <E14PCUW-0001Qo-00@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@8688

1 files changed, 4 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index 1c8f65d179..12374978cb 100644
--- a/perlio.c
+++ b/perlio.c
@@ -651,6 +651,10 @@ PerlIO_apply_layers(pTHX_ PerlIO *f, const char *mode, const char *names)
              PerlIO_funcs *tab = INT2PTR(PerlIO_funcs *, SvIV(SvRV(layer)));
              if (tab)
               {
+	       if (as && (ae == Nullch)) {
+		ae = e;
+		Perl_warn(aTHX_ "perlio: argument list not closed for layer \"%.*s\"",(int)(e - s),s);
+	       }
                len = (as) ? (ae-(as++)-1) : 0;
                if (!PerlIO_push(f,tab,mode,as,len))
                 return -1;