adding the newSVpvn API function

p4raw-id: //depot/perl@473

1 files changed, 15 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index c6041de8bd..b0d81f3ef5 100644
--- a/sv.c
+++ b/sv.c
@@ -3444,6 +3444,21 @@ newSVpv(char *s, STRLEN len)
     return sv;
 }
 
+SV *
+newSVpvn(s,len)
+char *s;
+STRLEN len;
+{
+    register SV *sv;
+
+    new_SV(sv);
+    SvANY(sv) = 0;
+    SvREFCNT(sv) = 1;
+    SvFLAGS(sv) = 0;
+    sv_setpvn(sv,s,len);
+    return sv;
+}
+
 #ifdef I_STDARG
 SV *
 newSVpvf(const char* pat, ...)