From 96ccaf5388a125cc826380e910941c3b2f6310e1 Mon Sep 17 00:00:00 2001 From: Vincent Pit Date: Sat, 7 Mar 2009 21:37:22 +0100 Subject: [PATCH] Make PerlIO::get_layers really test flgok before reading *flgsvp --- universal.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 1.8.3.1