The string "." cannot possibly contain a PATH sepatator, so don't tell S_pushinc
authorNicholas Clark <nick@ccl4.org>
Fri, 26 Dec 2008 13:19:14 +0000 (13:19 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 26 Dec 2008 13:19:14 +0000 (13:19 +0000)
to go searching for one. (And the analagous change for MacOS classic.)

perl.c

diff --git a/perl.c b/perl.c
index 555b0db..da4ee48 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -4780,7 +4780,7 @@ S_init_perllib(pTHX)
        SvREFCNT_dec(privdir);
     }
     if (!PL_tainting)
-       incpush(":", FALSE, FALSE, TRUE, FALSE, FALSE);
+       incpush(":", FALSE, FALSE, FALSE, FALSE, FALSE);
 #else
 #ifndef PRIVLIB_EXP
 #  define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
@@ -4839,7 +4839,7 @@ S_init_perllib(pTHX)
 #endif
 
     if (!PL_tainting)
-       incpush(".", FALSE, FALSE, TRUE, FALSE, FALSE);
+       incpush(".", FALSE, FALSE, FALSE, FALSE, FALSE);
 #endif /* MACOS_TRADITIONAL */
 }