fix for GPF in C<print Win32::GetFullPathName('\\\\host\share')>

p4raw-id: //depot/perl@18328

diff --git a/win32/win32.c b/win32/win32.c
index 556d621..44642e6 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -4677,8 +4677,13 @@ XS(w32_GetFullPathName)
     if (len) {
        if (GIMME_V == G_ARRAY) {
            EXTEND(SP,1);
-           XST_mPV(1,filepart);
-           len = filepart - SvPVX(fullpath);
+           if (filepart) {
+               XST_mPV(1,filepart);
+               len = filepart - SvPVX(fullpath);
+           }
+           else {
+               XST_mPVN(1,"",0);
+           }
            items = 2;
        }
        SvCUR_set(fullpath,len);