From: Steve Hay <SteveHay@planit.com>
Date: Thu, 31 Mar 2005 15:39:57 +0000 (+0000)
Subject: Fix USE_SITECUSTOMIZE on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0c8bec29ec0362a1d5bd0ad2f2e00b2304ea2a8;p=p5sagit%2Fp5-mst-13.2.git

Fix USE_SITECUSTOMIZE on Win32

This fixes the problem described in:

http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2005-03/msg00740.html

p4raw-id: //depot/perl@24122
---

diff --git a/win32/win32.c b/win32/win32.c
index 0db36b3..40e28f5 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -253,7 +253,8 @@ get_emd_part(SV **prev_pathp, char *trailing_path, ...)
 	dTHX;
 	if (!*prev_pathp)
 	    *prev_pathp = sv_2mortal(newSVpvn("",0));
-	sv_catpvn(*prev_pathp, ";", 1);
+	else if (SvPVX(*prev_pathp))
+	    sv_catpvn(*prev_pathp, ";", 1);
 	sv_catpv(*prev_pathp, mod_name);
 	return SvPVX(*prev_pathp);
     }