From 95bb830374a8a89f7b1a7056c1e3e3c778bfa350 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 16 Feb 2009 11:14:28 +0000
Subject: Don't add PRIVLIB_EXP to @INC twice.

---
 perl.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl.c')

diff --git a/perl.c b/perl.c
index 9e52c981fe..a56ab03009 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) {
-- 
cgit v1.2.1