From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 1 Sep 2000 22:16:40 +0000 (+0000)
Subject: change#6791 accidentally clobbered change#6710, put it back
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=631c0b04b5c609df9637f229c202807e3a6dac42;p=p5sagit%2Fp5-mst-13.2.git

change#6791 accidentally clobbered change#6710, put it back

p4raw-link: @6791 on //depot/perl: da147683998a4de28027887441303c16367eda87
p4raw-link: @6710 on //depot/perl: e8d3aa3b2e7edcd352aa3e0d8a884844f9aa9d5e

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

diff --git a/win32/win32.c b/win32/win32.c
index 687ffe0..9fc83c1 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -3912,6 +3912,9 @@ XS(w32_GetShortPathName)
 
     shortpath = sv_mortalcopy(ST(0));
     SvUPGRADE(shortpath, SVt_PV);
+    if (!SvPVX(shortpath) || !SvLEN(shortpath))
+        XSRETURN_UNDEF;
+
     /* src == target is allowed */
     do {
 	len = GetShortPathName(SvPVX(shortpath),
@@ -3941,6 +3944,9 @@ XS(w32_GetFullPathName)
     filename = ST(0);
     fullpath = sv_mortalcopy(filename);
     SvUPGRADE(fullpath, SVt_PV);
+    if (!SvPVX(fullpath) || !SvLEN(fullpath))
+        XSRETURN_UNDEF;
+
     do {
 	len = GetFullPathName(SvPVX(filename),
 			      SvLEN(fullpath),