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-Tag: code-review/2009-07-22~645
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/96ccaf5388a125cc826380e910941c3b2f6310e1

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;