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