From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 31 Jul 2003 20:20:28 +0000 (+0000)
Subject: Retract #20385.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6ef9389991a02ccb3c8b66ed39e18cfbd747a43;p=p5sagit%2Fp5-mst-13.2.git

Retract #20385.

p4raw-id: //depot/perl@20390
---

diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h
index 8ef6d38..bd62b28 100644
--- a/ext/ByteLoader/bytecode.h
+++ b/ext/ByteLoader/bytecode.h
@@ -172,8 +172,10 @@ typedef char *pvindex;
 
 #define BSET_newsv(sv, arg)				\
 	STMT_START {					\
-	    sv = NEWSV(0,0));				\
-	    SvUPGRADE(sv, (arg));			\
+	    sv = (arg == SVt_PVAV ? (SV*)newAV() :	\
+		  arg == SVt_PVHV ? (SV*)newHV() :	\
+		  NEWSV(666,0));			\
+	    SvUPGRADE(sv, arg);				\
 	} STMT_END
 #define BSET_newsvx(sv, arg) STMT_START {		\
 	    BSET_newsv(sv, arg &  SVTYPEMASK);		\