From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 18 Dec 2002 02:27:10 +0000 (+0000)
Subject: fix for GPF in C<print Win32::GetFullPathName('\\\\host\share')>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7cb420191309ad69a81b6ee87235753ed843b9e6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);