diff options
| author | Vincent Pit <perl@profvince.com> | 2009-03-07 21:37:22 +0100 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-03-07 21:52:35 +0100 |
| commit | 96ccaf5388a125cc826380e910941c3b2f6310e1 (patch) | |
| tree | 879d286abe9b84108b9daf03be466aa46e1509d8 /universal.c | |
| parent | 8c472fc1d477ec4a43d02ce6fc6458f4004c738d (diff) | |
| download | perl-96ccaf5388a125cc826380e910941c3b2f6310e1.tar.gz | |
Make PerlIO::get_layers really test flgok before reading *flgsvp
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index d333d2342c..db6bfc6dd3 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; |