Missed from #16811.

p4raw-id: //depot/perl@16812

diff --git a/MANIFEST b/MANIFEST
index 43f3043..ab5fc95 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1946,9 +1946,11 @@ NetWare/bat/BldNWExt.bat NetWare port
 NetWare/bat/Buildtype.bat      NetWare port
 NetWare/bat/CWbuild.bat                NetWare port
 NetWare/bat/MPKBuild.bat       NetWare port
+NetWare/bat/Setcw.bat          NetWare port
 NetWare/bat/Setmpksdk.bat      NetWare port
 NetWare/bat/Setnlmsdk.bat      NetWare port
 NetWare/bat/SetNWBld.bat       NetWare port
+NetWare/bat/SetNWDef.bat       NetWare port
 NetWare/bat/Setwatcom.bat      NetWare port
 NetWare/bat/ToggleD2.bat       NetWare port
 NetWare/bat/ToggleXDC.bat      NetWare port
@@ -1995,6 +1997,7 @@ NetWare/nwutil.h          NetWare port
 NetWare/nwvmem.h               NetWare port
 NetWare/perllib.cpp            NetWare port
 NetWare/splittree.pl           NetWare port
+NetWare/sv_nw.c                        NetWare port
 NetWare/t/NWModify.pl          NetWare port
 NetWare/t/NWScripts.pl         NetWare port
 NetWare/t/Readme.txt           NetWare port

diff --git a/NetWare/sv_nw.c b/NetWare/sv_nw.c
new file mode 100644 (file)
index 0000000..0051363
--- /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);
+}
+