Don't add PRIVLIB_EXP to @INC twice.
Nicholas Clark [Mon, 16 Feb 2009 11:14:28 +0000 (11:14 +0000)]
perl.c

diff --git a/perl.c b/perl.c
index 9e52c98..a56ab03 100644 (file)
--- 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) {