From b9f83d2f7c4cb24d96302c6fcaa5e60628fad1f8 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 18 Feb 2007 19:40:43 +0000
Subject: Add a new API function newSV_type, to replace the idiom: sv =
 newSV(0); sv_upgrade(sv, type);

p4raw-id: //depot/perl@30347
---
 proto.h | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'proto.h')

diff --git a/proto.h b/proto.h
index cd7bfe3d56..339ecca7d2 100644
--- a/proto.h
+++ b/proto.h
@@ -1642,6 +1642,10 @@ PERL_CALLCONV SV*	Perl_newSVsv(pTHX_ SV* old)
 			__attribute__malloc__
 			__attribute__warn_unused_result__;
 
+PERL_CALLCONV SV*	Perl_newSV_type(pTHX_ svtype type)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
 PERL_CALLCONV OP*	Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first)
 			__attribute__malloc__
 			__attribute__warn_unused_result__;
-- 
cgit v1.2.1