From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 16 Feb 2009 11:14:28 +0000 (+0000)
Subject: Don't add PRIVLIB_EXP to @INC twice.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95bb830374a8a89f7b1a7056c1e3e3c778bfa350;p=p5sagit%2Fp5-mst-13.2.git

Don't add PRIVLIB_EXP to @INC twice.
---

diff --git a/perl.c b/perl.c
index 9e52c98..a56ab03 100644
--- a/perl.c
+++ b/perl.c
@@ -4217,7 +4217,7 @@ S_init_perllib(pTHX_ U32 old_vers)
     incpush_use_sep(PERL_VENDORLIB_STEM, old_vers|INCPUSH_CAN_RELOCATE);
 #endif
 
-    if (!old_vers)
+    if (!old_vers) {
 #ifdef ARCHLIB_EXP
 	incpush_use_sep(ARCHLIB_EXP, INCPUSH_CAN_RELOCATE);
 #endif
@@ -4231,6 +4231,7 @@ S_init_perllib(pTHX_ U32 old_vers)
 #else
 	incpush_use_sep(PRIVLIB_EXP, INCPUSH_CAN_RELOCATE);
 #endif
+    }
 
 #ifdef PERL_OTHERLIBDIRS
     if (!old_vers) {