Update to reorder patch, tested with 5.8.6 and 5.8.7, resolves bug 95770

(Portage version: 2.0.51.22-r1)

2 files changed, 13 insertions, 54 deletions

diff --git a/sys-devel/libperl/ChangeLog b/sys-devel/libperl/ChangeLog
index dafbe12f6a58..1e066fbc9798 100644
--- a/sys-devel/libperl/ChangeLog
+++ b/sys-devel/libperl/ChangeLog
@@ -1,6 +1,10 @@
 # ChangeLog for sys-devel/libperl
 # Copyright 2002-2005 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/sys-devel/libperl/ChangeLog,v 1.73 2005/07/28 12:08:53 herbs Exp $
+# $Header: /var/cvsroot/gentoo-x86/sys-devel/libperl/ChangeLog,v 1.74 2005/07/28 13:42:37 mcummings Exp $
+
+  28 Jul 2005; Michael Cummings <mcummings@gentoo.org>
+  files/libperl-reorder-INC.patch:
+  Update to reorder patch, tested with 5.8.6 and 5.8.7, resolves bug 95770
 
   28 Jul 2005; Herbie Hopkins <herbs@gentoo.org> libperl-5.8.6-r1.ebuild:
   Stable on amd64.
@@ -27,7 +31,7 @@
   libperl-5.8.6-r1.ebuild:
   Stable on ppc.
 
-  02 Jul 2005; Bryan Østergaard <kloeri@gentoo.org>
+  02 Jul 2005; Bryan Østergaard <kloeri@gentoo.org>
   libperl-5.8.6-r1.ebuild:
   Stable on alpha.
 
@@ -95,7 +99,7 @@
   06 Dec 2004; Gustavo Zacarias <gustavoz@gentoo.org> libperl-5.8.5.ebuild:
   Stable on sparc wrt #66360
 
-  05 Dec 2004; Bryan Østergaard <kloeri@gentoo.org> libperl-5.8.5.ebuild:
+  05 Dec 2004; Bryan Østergaard <kloeri@gentoo.org> libperl-5.8.5.ebuild:
   Stable on alpha, bug 66360.
 
   05 Dec 2004; Markus Rothe <corsair@gentoo.org> libperl-5.8.5.ebuild:
@@ -152,7 +156,7 @@
   libperl-5.8.4-r1.ebuild, libperl-5.8.4.ebuild, libperl-5.8.5.ebuild:
   Removed reference to old patch
 
-  13 Aug 2004; Bryan Østergaard <kloeri@gentoo.org> libperl-5.8.4.ebuild:
+  13 Aug 2004; Bryan Østergaard <kloeri@gentoo.org> libperl-5.8.4.ebuild:
   Stable on alpha.
 
 *libperl-5.8.5 (06 Aug 2004)
diff --git a/sys-devel/libperl/files/libperl-reorder-INC.patch b/sys-devel/libperl/files/libperl-reorder-INC.patch
index c934b4135a13..cc314d97d314 100644
--- a/sys-devel/libperl/files/libperl-reorder-INC.patch
+++ b/sys-devel/libperl/files/libperl-reorder-INC.patch
@@ -1,6 +1,6 @@
---- perl.c.orig	2003-07-10 22:09:00.000000000 -0700
-+++ perl.c	2003-07-10 22:30:21.000000000 -0700
-@@ -3932,9 +3932,9 @@
+--- perl.c.orig	2005-07-26 13:04:54.000000000 -0400
++++ perl.c	2005-07-26 13:05:05.000000000 -0400
+@@ -4397,9 +4397,9 @@ S_init_perllib(pTHX)
      incpush(APPLLIB_EXP, TRUE, TRUE, TRUE);
  #endif
  
@@ -13,7 +13,7 @@
  #ifdef MACOS_TRADITIONAL
      {
  	Stat_t tmpstatbuf;
-@@ -3961,8 +3961,6 @@
+@@ -4426,8 +4426,6 @@ S_init_perllib(pTHX)
  #endif
  #if defined(WIN32)
      incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
@@ -22,7 +22,7 @@
  #endif
  
  #ifdef SITEARCH_EXP
-@@ -4006,6 +4004,60 @@
+@@ -4471,6 +4469,15 @@ S_init_perllib(pTHX)
      incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE);
  #endif
  
@@ -34,51 +34,6 @@
 +
 +    incpush("/usr/local/lib/site_perl", TRUE, FALSE, TRUE);
 +
-+#ifdef PERL_INC_VERSION_LIST
-+{
-+  struct stat s;
-+
-+  /* add small buffer in case old versions are longer than the current version */
-+  char sitearch[sizeof(SITEARCH_EXP)+16] = SITEARCH_EXP;
-+  char sitelib[sizeof(SITELIB_EXP)+16] = SITELIB_EXP;
-+  char const *vers[] = { PERL_INC_VERSION_LIST };
-+  char const **p;
-+
-+  char *arch_vers = strrchr(sitearch, '/');
-+  char *lib_vers = strrchr(sitelib, '/');
-+
-+  if (arch_vers && isdigit(*++arch_vers))
-+    *arch_vers = 0;
-+  else
-+    arch_vers = 0;
-+
-+  if (lib_vers && isdigit(*++lib_vers))
-+    *lib_vers = 0;
-+  else
-+    lib_vers = 0;
-+
-+  /* there is some duplication here as incpush does something similar
-+     internally, but required as sitearch is not a subdirectory of
-+     sitelib */
-+
-+  for (p = vers; *p; p++)
-+    {
-+      if (arch_vers)
-+	{
-+	  strcpy(arch_vers, *p);
-+	  if (PerlLIO_stat(sitearch, &s) >= 0 && S_ISDIR(s.st_mode))
-+	    incpush(sitearch, FALSE, FALSE, TRUE);
-+	}
-+
-+      if (lib_vers)
-+	{
-+	  strcpy(lib_vers, *p);
-+	  if (PerlLIO_stat(sitelib, &s) >= 0 && S_ISDIR(s.st_mode))
-+	    incpush(sitelib, FALSE, FALSE, TRUE);
-+	}
-+    }
-+}
-+#endif
 +
  #ifdef PERL_OTHERLIBDIRS
      incpush(PERL_OTHERLIBDIRS, TRUE, TRUE, TRUE);