perl_581-INC.patch

   1 diff -urN perl-5.10.0.org/perl.c perl-5.10.0/perl.c
   2 --- perl-5.10.0.org/perl.c      2007-12-18 11:47:08.000000000 +0100
   3 +++ perl-5.10.0/perl.c  2008-01-09 14:12:15.921155066 +0100
   4 @@ -4753,39 +4753,6 @@
   5      incpush(APPLLIB_EXP, TRUE, TRUE, TRUE, TRUE);
   6  #endif
   7
   8 -#ifdef ARCHLIB_EXP
   9 -    incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE, TRUE);
  10 -#endif
  11 -#ifdef MACOS_TRADITIONAL
  12 -    {
  13 -       Stat_t tmpstatbuf;
  14 -       SV * privdir = newSV(0);
  15 -       char * macperl = PerlEnv_getenv("MACPERL");
  16 -
  17 -       if (!macperl)
  18 -           macperl = "";
  19 -
  20 -       Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
  21 -       if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
  22 -           incpush(SvPVX(privdir), TRUE, FALSE, TRUE, FALSE);
  23 -       Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
  24 -       if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
  25 -           incpush(SvPVX(privdir), TRUE, FALSE, TRUE, FALSE);
  26 -
  27 -       SvREFCNT_dec(privdir);
  28 -    }
  29 -    if (!PL_tainting)
  30 -       incpush(":", FALSE, FALSE, TRUE, FALSE);
  31 -#else
  32 -#ifndef PRIVLIB_EXP
  33 -#  define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
  34 -#endif
  35 -#if defined(WIN32)
  36 -    incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE, TRUE);
  37 -#else
  38 -    incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE, TRUE);
  39 -#endif
  40 -
  41  #ifdef SITEARCH_EXP
  42      /* sitearch is always relative to sitelib on Windows for
  43       * DLL-based path intuition to work correctly */
  44 @@ -4805,7 +4772,7 @@
  45
  46  #if defined(SITELIB_STEM) && defined(PERL_INC_VERSION_LIST)
  47      /* Search for version-specific dirs below here */
  48 -    incpush(SITELIB_STEM, FALSE, TRUE, TRUE, TRUE);
  49 +    /* incpush(SITELIB_STEM, FALSE, TRUE, TRUE, TRUE); */
  50  #endif
  51
  52  #ifdef PERL_VENDORARCH_EXP
  53 @@ -4825,7 +4792,40 @@
  54  #endif
  55
  56  #ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */
  57 -    incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE, TRUE);
  58 +/*    incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE, TRUE); */
  59 +#endif
  60 +
  61 +#ifdef ARCHLIB_EXP
  62 +    incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE, TRUE);
  63 +#endif
  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, FALSE);
  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, FALSE);
  79 +
  80 +       SvREFCNT_dec(privdir);
  81 +    }
  82 +    if (!PL_tainting)
  83 +       incpush(":", FALSE, FALSE, TRUE, FALSE);
  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, TRUE);
  90 +#else
  91 +    incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE, TRUE);
  92  #endif
  93
  94  #ifdef PERL_OTHERLIBDIRS