This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't add PRIVLIB_EXP to @INC twice.
authorNicholas Clark <nick@ccl4.org>
Mon, 16 Feb 2009 11:14:28 +0000 (11:14 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 16 Feb 2009 11:24:49 +0000 (11:24 +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) {