diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-27 16:22:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-27 16:22:45 +0000 |
| commit | 12a7e53ecaf2862097d42e6cd9b4de2e1b52eb5c (patch) | |
| tree | 0cbea7cd626b63f3b6977c9119a103aca88f3a5b | |
| parent | 8213a98bef1bbbd4199bd867bb676f2fb4424cb0 (diff) | |
| download | perl-12a7e53ecaf2862097d42e6cd9b4de2e1b52eb5c.tar.gz | |
Missed from #16811.
p4raw-id: //depot/perl@16812
| -rw-r--r-- | MANIFEST | 3 | ||||
| -rw-r--r-- | NetWare/sv_nw.c | 35 |
2 files changed, 38 insertions, 0 deletions
@@ -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 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); +} + |