Missed from #16811.

p4raw-id: //depot/perl@16812

1 files changed, 35 insertions, 0 deletions

diff --git a/NetWare/sv_nw.c b/NetWare/sv_nw.c
new file mode 100644
index 0000000000..0051363e96
--- /dev/null
+++ b/NetWare/sv_nw.c
@@ -0,0 +1,35 @@
+#include <EXTERN.h>
+#define PERL_IN_SV_C
+#include <perl.h>
+#include <regcomp.h>
+
+#define FCALL *f
+#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal(sv)
+
+
+
+void
+Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr)
+{
+    sv_catsv_flags(dstr, sstr, SV_GMAGIC);
+}
+
+void
+Perl_sv_catpvn(pTHX_ SV *dsv, const char* sstr, STRLEN slen)
+{
+    
+    sv_catpvn_flags(dsv, sstr, slen, SV_GMAGIC);
+}
+
+void
+Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr)
+{
+    sv_setsv_flags(dstr, sstr, SV_GMAGIC);
+}
+
+char *
+Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp)
+{
+    return sv_2pv_flags(sv, lp, SV_GMAGIC);
+}
+