diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-03-31 15:39:57 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-03-31 15:39:57 +0000 |
| commit | 06564655da5e79cfacf0b5b2b72379cfeac64eef (patch) | |
| tree | 5d5763f39c806838e13a57579687f04e6ef82e7e | |
| parent | 618480375f50412cf39e3b34444c4e0b8b02124a (diff) | |
| download | perl-06564655da5e79cfacf0b5b2b72379cfeac64eef.tar.gz | |
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
| -rw-r--r-- | win32/win32.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/win32/win32.c b/win32/win32.c index 0db36b3d91..40e28f5a66 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); } |