Author: arekm                        Date: Wed Jan  9 14:14:15 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- fix

---- Files affected:
SOURCES:
   perl_581-INC.patch (1.4 -> 1.5) 

---- Diffs:

================================================================
Index: SOURCES/perl_581-INC.patch
diff -u SOURCES/perl_581-INC.patch:1.4 SOURCES/perl_581-INC.patch:1.5
--- SOURCES/perl_581-INC.patch:1.4      Wed Jan  9 14:23:01 2008
+++ SOURCES/perl_581-INC.patch  Wed Jan  9 15:14:10 2008
@@ -59,7 +59,7 @@
 +#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 @@
 +
 +      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
================================================================

---- CVS-web:
    
http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/SOURCES/perl_581-INC.patch?r1=1.4&r2=1.5&f=u

_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit

Reply via email to