--- perl_api/perl.xs.orig Thu Oct 17 03:16:34 1996 +++ perl_api/perl.xs Sun May 9 01:42:05 1999 @@ -142,7 +142,7 @@ 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)); @@ -418,7 +418,7 @@ xs_init() { #ifdef HAVE_PERL_5_003_01 - dXSUB_SYS; + dXSUB_SYS #endif char *file = __FILE__;