diff options
| author | cvs2svn <cvs2svn@FreeBSD.org> | 1999-01-21 00:55:32 +0000 |
|---|---|---|
| committer | cvs2svn <cvs2svn@FreeBSD.org> | 1999-01-21 00:55:32 +0000 |
| commit | 76b5366091f76c9bc73570149ef5055648fc2c39 (patch) | |
| tree | 590d020e0f2a5bea6e09d66d951a674443b21d67 /contrib/nvi/perl_api/perl.xs | |
| parent | 4b4d01da6f07f7754ff6a6e4f5223e9f0984d1a6 (diff) | |
Diffstat (limited to 'contrib/nvi/perl_api/perl.xs')
| -rw-r--r-- | contrib/nvi/perl_api/perl.xs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/contrib/nvi/perl_api/perl.xs b/contrib/nvi/perl_api/perl.xs index 056b2d2cd13c9..0b48cded5bfc0 100644 --- a/contrib/nvi/perl_api/perl.xs +++ b/contrib/nvi/perl_api/perl.xs @@ -18,7 +18,6 @@ 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> @@ -31,7 +30,6 @@ 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" @@ -144,7 +142,7 @@ perl_init(scrp) perl_call_argv("VI::bootstrap", G_DISCARD, bootargs); perl_eval("$SIG{__WARN__}='VI::Warn'"); - av_unshift(av = GvAVn(PL_incgv), 1); + av_unshift(av = GvAVn(incgv), 1); av_store(av, 0, newSVpv(_PATH_PERLSCRIPTS, sizeof(_PATH_PERLSCRIPTS)-1)); @@ -419,11 +417,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); } |