diff options
| author | peter <peter@FreeBSD.org> | 1998-12-16 04:00:25 +0000 |
|---|---|---|
| committer | peter <peter@FreeBSD.org> | 1998-12-16 04:00:25 +0000 |
| commit | fe0264475ac7af2a3b3f777b7772bfcbb5f356c7 (patch) | |
| tree | 0776f5e2b9f102fadc3753bfde9d174a8d312581 /contrib | |
| parent | fca47ff171308d69daa82c196d31d7371432ceea (diff) | |
| download | FreeBSD-src-fe0264475ac7af2a3b3f777b7772bfcbb5f356c7.zip FreeBSD-src-fe0264475ac7af2a3b3f777b7772bfcbb5f356c7.tar.gz | |
Make this work with the perl5 in the source tree - the API has "evolved"
and some code glitches had to be fixed.
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/nvi/perl_api/perl.xs | 8 | ||||
| -rw-r--r-- | contrib/nvi/perl_api/perlsfio.c | 2 |
2 files changed, 7 insertions, 3 deletions
diff --git a/contrib/nvi/perl_api/perl.xs b/contrib/nvi/perl_api/perl.xs index 0b48cde..056b2d2 100644 --- a/contrib/nvi/perl_api/perl.xs +++ b/contrib/nvi/perl_api/perl.xs @@ -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); } diff --git a/contrib/nvi/perl_api/perlsfio.c b/contrib/nvi/perl_api/perlsfio.c index 20ff477..d507585 100644 --- a/contrib/nvi/perl_api/perlsfio.c +++ b/contrib/nvi/perl_api/perlsfio.c @@ -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" |
