diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-05-20 22:17:07 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-05-20 22:17:07 +0000 |
| commit | 81e5cfc699def7b54147818122a931953d19aba4 (patch) | |
| tree | 5734b0165c1479e3bd89f2cc3d62deaff9cc0ad7 /ext/B | |
| parent | 926fc7b69e6a11a3d2f5a7eb21ac98fcca45819c (diff) | |
| download | perl-81e5cfc699def7b54147818122a931953d19aba4.tar.gz | |
Fix bug in change 28258. So how come I thought I'd passed all tests?
p4raw-id: //depot/perl@28261
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B.xs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index afc1c370c9..8e987f2bed 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1148,12 +1148,12 @@ B::SV COP_io(o) B::COP o PPCODE: - if (!(CopHINTS_get(o) & HINT_LEXICAL_IO)) { - ST(0) = &PL_sv_undef; - } else { - ST(0) = Perl_refcounted_he_fetch(aTHX_ o->cop_hints_hash, 0, - "open", 4, 0, 0); - } + ST(0) = + make_sv_object(aTHX_ sv_newmortal(), + (CopHINTS_get(o) & HINT_LEXICAL_IO) + ? Perl_refcounted_he_fetch(aTHX_ o->cop_hints_hash, + 0, "open", 4, 0, 0) + : NULL); XSRETURN(1); U32 |