From: Vincent Pit <perl@profvince.com>
Date: Sat, 7 Mar 2009 20:37:22 +0000 (+0100)
Subject: Make PerlIO::get_layers really test flgok before reading *flgsvp
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96ccaf5388a125cc826380e910941c3b2f6310e1;p=p5sagit%2Fp5-mst-13.2.git

Make PerlIO::get_layers really test flgok before reading *flgsvp
---

diff --git a/universal.c b/universal.c
index d333d23..db6bfc6 100644
--- a/universal.c
+++ b/universal.c
@@ -1025,7 +1025,7 @@ XS(XS_PerlIO_get_layers)
 					       (SvUTF8(*argsvp) ? SVf_UTF8 : 0)
 					       | SVs_TEMP)
 			      : &PL_sv_undef);
-		       XPUSHs(namok
+		       XPUSHs(flgok
 			      ? sv_2mortal(SvREFCNT_inc_simple_NN(*flgsvp))
 			      : &PL_sv_undef);
 		       nitem += 3;