Fix bug in change 28258. So how come I thought I'd passed all tests?

p4raw-id: //depot/perl@28261

diff --git a/ext/B/B.xs b/ext/B/B.xs
index afc1c37..8e987f2 100644 (file)
--- 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