X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.c;h=12374978cb1aae01d8c02dc70f9dde1684fc6628;hb=bccbfa77316f269e35ea29247d7506d2c3ba7e11;hp=1c8f65d179d32a117374998e96164293aac23b8a;hpb=8feeef0e0d76d86276cdc4df830eb164693ca482;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.c b/perlio.c
index 1c8f65d..1237497 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;