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 (file)
--- 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);
     }