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

--- perl.c.orig	Sun May  4 09:47:04 2003
+++ perl.c	Wed May  7 06:31:58 2003
@@ -3753,39 +3753,6 @@
     incpush(APPLLIB_EXP, TRUE, TRUE, TRUE);
 #endif
 
-#ifdef ARCHLIB_EXP
-    incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
-#endif
-#ifdef MACOS_TRADITIONAL
-    {
-	Stat_t tmpstatbuf;
-    	SV * privdir = NEWSV(55, 0);
-	char * macperl = PerlEnv_getenv("MACPERL");
-	
-	if (!macperl)
-	    macperl = "";
-	
-	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);
-	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);
-	
-   	SvREFCNT_dec(privdir);
-    }
-    if (!PL_tainting)
-	incpush(":", FALSE, FALSE, TRUE);
-#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);
-#else
-    incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
-#endif
-
 #ifdef SITEARCH_EXP
     /* sitearch is always relative to sitelib on Windows for
      * DLL-based path intuition to work correctly */
@@ -3804,7 +3771,7 @@
 #endif
 
 #ifdef SITELIB_STEM /* Search for version-specific dirs below here */
-    incpush(SITELIB_STEM, FALSE, TRUE, TRUE);
+/*  incpush(SITELIB_STEM, FALSE, TRUE, TRUE); */
 #endif
 
 #ifdef PERL_VENDORARCH_EXP
@@ -3824,7 +3791,41 @@
 #endif
 
 #ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */
-    incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE);
+/*  incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE); */
+#endif
+
+#ifdef ARCHLIB_EXP
+    incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
+#endif
+
+#ifdef MACOS_TRADITIONAL
+    {
+	Stat_t tmpstatbuf;
+    	SV * privdir = NEWSV(55, 0);
+	char * macperl = PerlEnv_getenv("MACPERL");
+	
+	if (!macperl)
+	    macperl = "";
+	
+	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);
+	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);
+	
+   	SvREFCNT_dec(privdir);
+    }
+    if (!PL_tainting)
+	incpush(":", FALSE, FALSE, TRUE);
+#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);
+#else
+    incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
 #endif
 
 #ifdef PERL_OTHERLIBDIRS
Commit	Line	Data
3677dc59	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);
642838fa	5	#endif
3677dc59	6
	7	-#ifdef ARCHLIB_EXP
	8	- incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
	9	-#endif
642838fa	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
3677dc59	39	-
642838fa	40	#ifdef SITEARCH_EXP
642838fa	41	/* sitearch is always relative to sitelib on Windows for
3677dc59	42	* DLL-based path intuition to work correctly */
3677dc59	43	@@ -3804,7 +3771,7 @@
642838fa	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
3677dc59	52	@@ -3824,7 +3791,41 @@
642838fa	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	+
3677dc59	60	+#ifdef ARCHLIB_EXP
	61	+ incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
	62	+#endif
	63	+
642838fa	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