From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 20 May 2006 22:17:07 +0000 (+0000)
Subject: Fix bug in change 28258. So how come I thought I'd passed all tests?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=81e5cfc699def7b54147818122a931953d19aba4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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