d/freebsd-dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make this work with the perl5 in the source tree - the API has "evolved"

Browse Source 
and some code glitches had to be fixed.
This commit is contained in:
Peter Wemm 1998-12-16 04:00:25 +00:00
parent c2e3e002f6
commit d992b805ae
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=41839
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/nvi/perl_api/perl.xs
View File

@ -18,6 +18,7 @@ static const char sccsid[] = "@(#)perl.xs 8.27 (Berkeley) 10/16/96";
#endif /* not lint */
#include <sys/types.h>
#include <sys/param.h>
#include <sys/queue.h>
#include <sys/time.h>
@ -30,6 +31,7 @@ static const char sccsid[] = "@(#)perl.xs 8.27 (Berkeley) 10/16/96";
#include <string.h>
#include <termios.h>
#include <unistd.h>
#include <errno.h>
#include "../common/common.h"
@ -142,7 +144,7 @@ perl_init(scrp)
perl_call_argv("VI::bootstrap", G_DISCARD, bootargs);
perl_eval("$SIG{__WARN__}='VI::Warn'");
av_unshift(av = GvAVn(incgv), 1);
av_unshift(av = GvAVn(PL_incgv), 1);
av_store(av, 0, newSVpv(_PATH_PERLSCRIPTS,
sizeof(_PATH_PERLSCRIPTS)-1));
@ -417,11 +419,11 @@ extern void boot_VI _((CV* cv));
static void
xs_init()
{
char *file = __FILE__;
#ifdef HAVE_PERL_5_003_01
dXSUB_SYS;
#endif
char *file = __FILE__;
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXS("VI::bootstrap", boot_VI, file);
}

2
contrib/nvi/perl_api/perlsfio.c
View File

@ -14,6 +14,7 @@ static const char sccsid[] = "@(#)perlsfio.c 8.1 (Berkeley) 9/24/96";
#endif /* not lint */
#include <sys/types.h>
#include <sys/param.h>
#include <sys/queue.h>
#include <sys/time.h>
@ -26,6 +27,7 @@ static const char sccsid[] = "@(#)perlsfio.c 8.1 (Berkeley) 9/24/96";
#include <string.h>
#include <termios.h>
#include <unistd.h>
#include <errno.h>
#include "../common/common.h"