perl_581-INC.patch

   1 --- perl.c.orig Sun May  4 09:47:04 2003
   2 +++ perl.c      Wed May  7 06:31:58 2003
   3 @@ -3753,39 +3753,6 @@
   4      incpush(APPLLIB_EXP, TRUE, TRUE, TRUE);
   5  #endif
   6
   7 -#ifdef ARCHLIB_EXP
   8 -    incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
   9 -#endif
  10 -#ifdef MACOS_TRADITIONAL
  11 -    {
  12 -       Stat_t tmpstatbuf;
  13 -       SV * privdir = NEWSV(55, 0);
  14 -       char * macperl = PerlEnv_getenv("MACPERL");
  15 -
  16 -       if (!macperl)
  17 -           macperl = "";
  18 -
  19 -       Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
  20 -       if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
  21 -           incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
  22 -       Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
  23 -       if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
  24 -           incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
  25 -
  26 -       SvREFCNT_dec(privdir);
  27 -    }
  28 -    if (!PL_tainting)
  29 -       incpush(":", FALSE, FALSE, TRUE);
  30 -#else
  31 -#ifndef PRIVLIB_EXP
  32 -#  define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
  33 -#endif
  34 -#if defined(WIN32)
  35 -    incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
  36 -#else
  37 -    incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
  38 -#endif
  39 -
  40  #ifdef SITEARCH_EXP
  41      /* sitearch is always relative to sitelib on Windows for
  42       * DLL-based path intuition to work correctly */
  43 @@ -3804,7 +3771,7 @@
  44  #endif
  45
  46  #ifdef SITELIB_STEM /* Search for version-specific dirs below here */
  47 -    incpush(SITELIB_STEM, FALSE, TRUE, TRUE);
  48 +/*  incpush(SITELIB_STEM, FALSE, TRUE, TRUE); */
  49  #endif
  50
  51  #ifdef PERL_VENDORARCH_EXP
  52 @@ -3824,7 +3791,41 @@
  53  #endif
  54
  55  #ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */
  56 -    incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE);
  57 +/*  incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE); */
  58 +#endif
  59 +
  60 +#ifdef ARCHLIB_EXP
  61 +    incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
  62 +#endif
  63 +
  64 +#ifdef MACOS_TRADITIONAL
  65 +    {
  66 +       Stat_t tmpstatbuf;
  67 +       SV * privdir = NEWSV(55, 0);
  68 +       char * macperl = PerlEnv_getenv("MACPERL");
  69 +
  70 +       if (!macperl)
  71 +           macperl = "";
  72 +
  73 +       Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
  74 +       if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
  75 +           incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
  76 +       Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
  77 +       if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
  78 +           incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
  79 +
  80 +       SvREFCNT_dec(privdir);
  81 +    }
  82 +    if (!PL_tainting)
  83 +       incpush(":", FALSE, FALSE, TRUE);
  84 +#else
  85 +#ifndef PRIVLIB_EXP
  86 +#  define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
  87 +#endif
  88 +#if defined(WIN32)
  89 +    incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
  90 +#else
  91 +    incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
  92  #endif
  93
  94  #ifdef PERL_OTHERLIBDIRS