diff options
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); } |