1/^S_init_perllib(/-1i
2#if defined(PERL_PREPENDTOPATH) || defined(PERL_APPENDTOPATH)
3#define	_incpushfile(path)					\
4{								\
5    PerlIO *fp;							\
6    char *e = getenv("NO_"#path);				\
7								\
8    if (!(e && *e) && (fp = PerlIO_open(path, "r")) != NULL) {	\
9	char buf[1024];						\
10	char *cp;						\
11	int res;						\
12	SV *sv = newSVpvn("", 0);				\
13								\
14	while ((res = PerlIO_read(fp, buf, sizeof(buf))) > 0)	\
15	    sv_catpvn(sv, buf, res);				\
16	PerlIO_close(fp);					\
17	if (res == 0 && SvCUR(sv) > 0) {			\
18	    STRLEN len;						\
19	    cp = SvPV_nolen(sv);				\
20	    while ((cp = strchr(cp, '\n')) != NULL)		\
21		*cp = ':';					\
22	    cp = SvPV(sv, len);					\
23	    incpush_use_sep(cp, len, INCPUSH_ADD_ARCHONLY_SUB_DIRS);	\
24	}							\
25	SvREFCNT_dec(sv);					\
26    }								\
27}
28#endif /* defined(PERL_PREPENDTOPATH) || defined(PERL_APPENDTOPATH) */
29
30.
31/^#ifdef APPLLIB_EXP/a
32.
33?^$?a
34#ifdef PERL_PREPENDTOPATH
35    _incpushfile(PERL_PREPENDTOPATH);
36#endif /* PERL_PREPENDTOPATH */
37
38.
39/^#ifdef PERL_VENDORARCH_EXP/i
40#if defined(NO_NETWORK_LIBRARY_PERL_FILE) && (defined(PERL_VENDORARCH_EXP) || defined(PERL_VENDORLIB_EXP))
41  if (access(NO_NETWORK_LIBRARY_PERL_FILE, F_OK) != 0) {
42#endif /* NO_NETWORK_LIBRARY_PERL_FILE && (PERL_VENDORARCH_EXP || PERL_VENDORLIB_EXP) */
43.
44/#ifdef ARCHLIB_EXP/i
45#if defined(NO_NETWORK_LIBRARY_PERL_FILE) && (defined(PERL_VENDORARCH_EXP) || defined(PERL_VENDORLIB_EXP))
46  }
47#endif /* NO_NETWORK_LIBRARY_PERL_FILE && (PERL_VENDORARCH_EXP || PERL_VENDORLIB_EXP) */
48
49#ifdef UPDATESLIB
50    S_incpush_use_sep(aTHX_ STR_WITH_LEN(UPDATESLIB), INCPUSH_ADD_ARCHONLY_SUB_DIRS);
51#endif /* UPDATESLIB */
52
53.
54/!PERL_IS_MINIPERL/i
55
56#ifdef PERL_APPENDTOPATH
57    _incpushfile(PERL_APPENDTOPATH);
58#endif /* PERL_APPENDTOPATH */
59.
60w
61