This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make PerlIO::get_layers really test flgok before reading *flgsvp
authorVincent Pit <perl@profvince.com>
Sat, 7 Mar 2009 20:37:22 +0000 (21:37 +0100)
committerVincent Pit <perl@profvince.com>
Sat, 7 Mar 2009 20:52:35 +0000 (21:52 +0100)
universal.c

index d333d23..db6bfc6 100644 (file)
@@ -1025,7 +1025,7 @@ XS(XS_PerlIO_get_layers)
                                               (SvUTF8(*argsvp) ? SVf_UTF8 : 0)
                                               | SVs_TEMP)
                              : &PL_sv_undef);
                                               (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;
                              ? sv_2mortal(SvREFCNT_inc_simple_NN(*flgsvp))
                              : &PL_sv_undef);
                       nitem += 3;