tolerate NULL SITELIB_EXP

p4raw-id: //depot/perl@5020

1 files changed, 9 insertions, 6 deletions

diff --git a/perl.c b/perl.c
index 931e592c76..8c0a297b39 100644
--- a/perl.c
+++ b/perl.c
@@ -3115,12 +3115,15 @@ S_init_perllib(pTHX)
 
 #ifdef SITELIB_EXP
     {
-	char buf[MAXPATHLEN];
-
-	strcpy(buf,SITELIB_EXP);
-	if (strrchr(buf,'/'))		/* XXX Hack, Configure var needed */
-	    *strrchr(buf,'/') = '\0';
-	incpush(buf, TRUE);
+	char *path = SITELIB_EXP;
+
+	if (path) {
+	    char buf[1024];
+	    strcpy(buf,path);
+	    if (strrchr(buf,'/'))	/* XXX Hack, Configure var needed */
+		*strrchr(buf,'/') = '\0';
+	    incpush(buf, TRUE);
+	}
     }
 #endif
 #if defined(PERL_VENDORLIB_EXP)