blob: 57fafcb79fe377ff964f0b4a41f9d74cc10f9500 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- 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__;
|
