- updated to 6.5.5-3

[packages/perl.git] / perl_581-INC.patch

diff --git a/perl_581-INC.patch b/perl_581-INC.patch
index 31fdac4315b3c1146814f97ca7f51a30371289be..d5fcf9854a627b0cdfb207d4ff72a6568b967c1d 100644 (file)
--- a/perl_581-INC.patch
+++ b/perl_581-INC.patch
@@ -59,7 +59,7 @@ diff -urN perl-5.10.0.org/perl.c perl-5.10.0/perl.c
 +#endif
 +
 +#ifdef ARCHLIB_EXP
-+    incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
++    incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE, TRUE);
 +#endif
 +#ifdef MACOS_TRADITIONAL
 +    {
@@ -72,23 +72,23 @@ diff -urN perl-5.10.0.org/perl.c perl-5.10.0/perl.c
 +
 +      Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
 +      if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
-+          incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
++          incpush(SvPVX(privdir), TRUE, FALSE, TRUE, FALSE);
 +      Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
 +      if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
-+          incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
++          incpush(SvPVX(privdir), TRUE, FALSE, TRUE, FALSE);
 +
 +      SvREFCNT_dec(privdir);
 +    }
 +    if (!PL_tainting)
-+      incpush(":", FALSE, FALSE, TRUE);
++      incpush(":", FALSE, FALSE, TRUE, FALSE);
 +#else
 +#ifndef PRIVLIB_EXP
 +#  define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
 +#endif
 +#if defined(WIN32)
-+    incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
++    incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE, TRUE);
 +#else
-+    incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
++    incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE, TRUE);
  #endif
  
  #ifdef PERL_OTHERLIBDIRS