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

diff --git a/universal.c b/universal.c
index d333d23..db6bfc6 100644 (file)
--- 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;