From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 26 Dec 2008 13:19:14 +0000 (+0000)
Subject: The string "." cannot possibly contain a PATH sepatator, so don't tell S_pushinc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=580f5bb24e046b670b622bf4b70a2a5693f38599;p=p5sagit%2Fp5-mst-13.2.git

The string "." cannot possibly contain a PATH sepatator, so don't tell S_pushinc
to go searching for one. (And the analagous change for MacOS classic.)
---

diff --git a/perl.c b/perl.c
index 555b0db..da4ee48 100644
--- 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 */
 }